Parcourir les fichiers d'un dossier et faire une rechercheV

Sub Macro1()
Dim CD As Workbook 'déclare la variable CD (Classeur Destination)
Dim CA As String 'déclare la variable CA (Chemin d'Accès)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim F As String 'déclare la variable F (Fichier)
Dim COL As Integer 'variable pour dédier une collone au fichier F
Dim CS As Workbook 'déclare la variable CS (Classeur Source)
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim TVS As Variant 'déclare la variable TVS (Tableau des Valeurs de la Source)
Dim SO As Currency ' XXdéclare la variable somme


Set CD = ThisWorkbook 'définit le classeur destination CD
CA = CD.Path & "\" 'définit le chemin d'accès CA
CA = "C:\Users\chery\Documents\Coût\"
Set OD = CD.Worksheets("Compilation") 'définit l'onglet destination OD
DL = OD.Cells(Application.Rows.Count, "B").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'onglet OD
TV = OD.Range("B1:B" & DL) 'définit le tableau des valeurs TV
F = Dir(CA & "*.xlsm") 'définit le premier fichier F ayant CA comme chemin d'accès et .xlsm comme extension
COL = 0  'Initialisation de Col
Do While F <> "" 'exécute tant qu'il existe des fichiers F
    If Not F = CD.Name Then
        Set CS = Workbooks.Open(CA & F) 'définit le classeur source CS (en l'ouvrant)
        Set OS = CS.Worksheets(1) 'définit l'onglet source OS (1er onglet du classeur source CS)
        TVS = OS.Range("A1:J" & DL) 'définit le tableau des valeur de la source TVS
        OD.Cells(1, COL).Value = F 'renvoie en tête de colonne le nom du fichier
        For i = 2 To DL 'boucle 1 : sur toutes les lignes I du tableau des valeurs TV
              SO = 0 'Initialisation de la valeur colonne
            For j = 1 To UBound(TVS, 1) 'boucle 2 : sur toutes les lignes J du tableau des valeurs de la sources TVS
                If TV(i, 1) = TVS(j, 1) Then 'condition : si les deux données en colonne 1 sont identiques
                    SO = SO + TVS(j, 10) 'XX
                   End If 'fin de la condition
              Next j 'prochaine ligne de la boucle 2
                OD.Cells(i, COL).Value = SO 'XXrenvoie dans le cellule ligne I colonne B de l'onglet OD, la valeur de la donnée ligne J colonne 2 du tableau des valeurs TVS
        Next i 'prochaine ligne de la boucle 1
        CS.Close False 'ferme le classeur source sans enregistrer
    End If
    F = Dir 'définit le fichier suivant F ayant CA comme chemin d'accès et .xls comme extension
    COL = COL + 4 'incrémentation de Col
Loop 'boucle
End Sub

OD.Cells(i, COL).Value = 0
' ...
OD.Cells(i, COL).Value = OD.Cells(i, COL).Value + TVS(j, 10)