Compilation de plusieurs classeurs avec 1 feuil dans un classeur

Sub recup()
Dim CD As Workbook 'déclare la variable CD (Classeur Destination)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim CA As String 'déclare la variable CA (Chemin d'Accès)
Dim F As String 'déclare la variable F (Fichiers)
Dim DEST As Range 'déclare la variable DEST (DESTination)
Dim CS As Workbook 'déclare la variable CS (Classeur Source)
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)

Set CD = ThisWorkbook 'définit le classeur destination CD
Set OD = CD.Worksheets("Feuil1") 'définit l'onglet destination OD (à adapter à ton cas)
CA = "C:\Users\ablancfo\Desktop\Fichier en cours\VBA OFS\TEST\A compiler\" 'définit le chemin d'accès CA
F = Dir(CA & "*.xls") ' Premier fichier
Do While F <> "" 'exécute tant qu'il existe des fichiers
    'définit la cellule de destinatin DEST (A1, si A1 est vide, sinon, ;la premiere cellule vide de la colonne A de l'onglet OD
    Set DEST = IIf(OD.Range("A1").Value = "", OD.Range("A1"), OD.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0))
    Workbooks.Open F 'ouvre le fichier F
    Set CS = ActiveWorkbook 'définit le classeur source CS
    Set OS = CS.Worksheets("Feuil1") 'définit l'onglet source OS (à adapter à ton cas)
    OS.Range("export").Copy DEST 'copie la plage nommée export de l'onglet OS et la colle dans dest
    CS.Close savechanges:=False 'ferme le classeur source sans enregistrer les changements
    F = Dir ' Fichier suivant
Loop 'boucle
End Sub

CA = CD.Path & "\"