Regrouper les données de plusieurs classeurs en un seul

Sub Macro1()
Dim CD As Workbook 'déclare la variable CD (Classeur Destination)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim CH As String 'déclare la variable CH (CHemin d'accès)
Dim SF As Object 'déclare la variable SF (Système de Fichiers)
Dim D As Object 'déclare la variable D (Dossier)
Dim EF As Object 'déclare la variable EF (Ensemble de 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 OS (Onglet Source)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)

Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
Set CD = ThisWorkbook 'définit le classeur CD
CH = CD.Path & "\" 'définit le chemin d'accès CH
Set OD = CD.Sheets(1) 'définit l'onglet destination OD
Set SF = CreateObject("Scripting.FileSystemObject") 'définit le système de fichiers SF
Set D = SF.GetFolder(CH) 'définit le dossier D
Set EF = D.Files 'définit l'ensemble des fichiers EF
For Each F In EF 'boucle sur tous les fichier F de l'ensemble des fichiers EF
    If F.Name <> CD.Name And Left(Split(F.Name, ".")(1), 3) = "xls" Then 'condition si le fichier n'est pas celui-ci et si son extension commence par "xls"
        Workbooks.Open F 'ouvre le fichier
        Set CS = ActiveWorkbook 'définit le classeur source CS
        Set OS = CS.Sheets(1) 'définit l'onglet source OS
        Set DEST = OD.Cells(1, Application.Columns.Count).End(xlToLeft).Offset(0, 1) 'définit la cellule de destination DEST
        OS.Columns(2).Copy DEST 'copie la colonne 2 de l'onglet source et la colle dans DEST
        CS.Close False 'ferme le classeur source sans enregistrer
    End If 'fin de la condition
Next F 'prochian fichier de la boucle
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
End Sub

CH = CD.Path & "/"