Fusionner plusieurs fichiers en 1 seul

OS.UsedRange.Copy DEST

OS.Range("A2:K" & OS.Range("A" & Rows.Count).End(xlUp).Row).Copy DEST

... deux fichiers avec l'extraction journalière ... Un soucis je récupère systématiquement les titres de chaque fichier ... Les fichiers sont sauvegarder un par un

Sub Macro1()
Dim CD As Workbook 'd?clare la variable CD (Classeur Destination)
Dim CH As String 'd?clare la variable CH (CHemin d'acc?s)
Dim OD As Worksheet 'd?clare la variable OD (Onglet Destination)
Dim SF As Object 'd?clare la variable SF (Syst?me de Fichiers)
Dim D As Object 'd?clare la variable D (Dossiers)
Dim EF As Object 'd?clare la variable EF (Ensemble des Fichiers)
Dim F As Object 'd?clare la variable F (Fichier)
Dim CS As Workbook 'd?clare la variable CS (Classeur Source)
Dim OS As Worksheet 'd?clare la variable CD (Onglet Source)
Dim DEST As Range 'd?clare la variable CD (Classeur Destination)

On Error GoTo Fin

Application.ScreenUpdating = False
 
Set CD = ThisWorkbook 'd?finit le classeur destination CD
CH = CD.Path 'd?finit le chemin d'acc?s CH
Set OD = CD.Sheets(1) 'd?finit l'onget destination OD
Set SF = CreateObject("Scripting.FileSystemObject") 'd?finit le syst?me de fichiers SF
Set D = SF.GetFolder(CH) 'd?finit le dossier de travail D
Set EF = D.Files 'd?finit l'ensemble des fichiers EF du dossier de travail D
'raz pour cette macro recup tous les fichiers en une seule fois.
'a modifier si recup fichier un par un par chaque jour
For Each F In EF 'boucle sur tous les fichiers F de l'ensemble ds fichiers EF
    If F.Name <> ThisWorkbook.Name And F.Name Like "*.xls*" Then 'condition : si le nom du fichier n'est pas le nom de ce fichier et si le fichier a une extension commen?ant par ".xls"
        Workbooks.Open (F) 'ouvre le fichier
        Set CS = ActiveWorkbook 'd?finit le classeur CS
        Set OS = CS.Sheets(1) 'd?finit l'onglet OS
        'd?finit la cellule de destination DEST (A1 si A1 est vide sinon, la premi?re cellule vide de la colonne A de l'onglet OD)
        Set DEST = IIf(OD.Range("A2").Value = "", OD.Range("A2"), OD.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0))
        'OS.UsedRange.Copy DEST 'copie les donn?es de l'onglet source OS et les colle dans DEST
        LD = IIf(OD.Range("A2").Value = "", 1, 2)       'si premier fichier: A1 sinon A2
        OS.Range("A" & LD & ":K" & OS.Range("A" & Rows.Count).End(xlUp).Row).Copy DEST
        CS.Close 'ferme le classeur source
        Set CS = Nothing 'initialise la variable CS
    End If 'fin de la condition
Next F 'prochain fichier de la boucl
Fin:
CD.Save 'enregistre ce fichier
Application.ScreenUpdating = True
End Sub