Macro qui copie colle dans une plage de donnée

Option Explicit

Sub CopieSapColleExcel()
Dim AppExcel As Excel.Application
Dim wbExcel As Workbook
Dim wsFeuilSource As Worksheet, wsFeuilDest As Worksheet
Dim vDatasTracking
Dim rcellule As Long, Ligne As Long
Dim Colonne As Integer

    'La feuille qui doit accueillir les données dans la plage C6:F19
    Set wsFeuilDest = ThisWorkbook.Sheets("Edition")
    
    Set AppExcel = New Excel.Application 'pas très utile et source d'erreurs, de plantage
    Set wbExcel = AppExcel.Workbooks.Open("C:\Users\TO124674\Desktop\Outil delestage\tracking.xls")
    AppExcel.Visible = True
    
    'La feuille source des données du classeur tracking
    Set wsFeuilSource = wbExcel.Sheets("tracking")
    rcellule = 2
    'La plage des données dans le classeur tracking.xls feuille tracking
    vDatasTracking = wsFeuilSource.Range("B2:B120").Value
    For Colonne = 3 To 6        'boucle sur les colonnes : 3 = C / 6 = F
        For Ligne = 6 To 19     'boucle sur les lignes de 6 à 19
            wsFeuilDest.Cells(Ligne, Colonne).Value = vDatasTracking(rcellule, 1)
            rcellule = rcellule + 1
        Next
    Next
    
    Erase vDatasTracking
    Set wsFeuilDest = Nothing
    Set wsFeuilSource = Nothing
    wbExcel.Close False
    Set wbExcel = Nothing
    AppExcel.Quit
    Set AppExcel = Nothing
End Sub