Transférer donnés entre feuille Excell en VBA

Option Explicit 
Option Base 1 

Sub repartir_donnees() 
Dim Lig As Long 
Dim Nbre As Integer, Wc As Integer, Cptr As Integer, T_wc(), T_lig(), cptr_col As Byte 

Dim start As Single 'essai rapidité  
start = Timer 

Application.ScreenUpdating = False 

With Sheets("cédule") 
      
     'recherches et collectes des données 
     For Wc = 2 To 54 
          Nbre = Application.CountIf(.Columns("A"), Wc) 
          ReDim T_wc(Nbre, 18) 
          Lig = .Cells.Rows.Count ' départ recherche 
          For Cptr = 1 To Nbre 
               Lig = .Columns("A").Find(Wc, .Cells(Lig, 1), xlValues, xlWhole).Row 
               T_lig = .Range(.Cells(Lig, "A"), .Cells(Lig, "R")).Value 
               For cptr_col = 1 To 18 
                    T_wc(Cptr, cptr_col) = T_lig(1, cptr_col) 
               Next 
          Next 
          'restitution surn feuille wc en cours 
           With Sheets(Wc) 
               .Range("A1:R20000").ClearContents 
               .Range("A1").Resize(Nbre, 18) = T_wc 
          End With 
     Next 
End With 

Application.ScreenUpdating = True 
MsgBox ("Répartition dans les Work Centers effectuée en " & Timer - start & " secondes") 
End Sub