Microsoft 365 Fusionner classeur avec consolidation des données

Sub Consolide()
Dim Wb, Fichier, Dossier, Colonne, DL, Axe2, Axe3
Sheets("Axe2").Cells.ClearContents                  ' On efface les 2 feuilles
Sheets("Axe3").Cells.ClearContents
Colonne = 5                                         ' On commence en colonne E
Application.ScreenUpdating = False
Dossier = Dir(ThisWorkbook.Path & "\")
CeFichier = ThisWorkbook.Name
While Dossier <> ""                                 ' On parcourt tous les fichiers
    If Dossier <> CeFichier And Right(Dossier, 4) = "xlsx" Then
        Workbooks.Open (Dossier)                    ' On ouvre le fichier
        DL = Sheets("Axe2").[E1000].End(xlUp).Row   ' On sauvegarde les données dans les tableaux Axe2 et Axe3
        Axe2 = Sheets("Axe2").Range("E1:E" & DL)
        DL = Sheets("Axe3").[E1000].End(xlUp).Row
        Axe3 = Sheets("Axe3").Range("E1:E" & DL)
        Workbooks(Dossier).Close SaveChanges:=False ' On ferme le fichier
        Sheets("Axe2").Cells(1, Colonne).Resize(UBound(Axe2, 1), UBound(Axe2, 2)) = Axe2 ' Restitution des données
        Sheets("Axe2").Cells(1, Colonne) = Dossier
        Sheets("Axe3").Cells(1, Colonne).Resize(UBound(Axe3, 1), UBound(Axe3, 2)) = Axe3
        Sheets("Axe3").Cells(1, Colonne) = Dossier
    Colonne = Colonne + 1                           ' Prochaine colonne où coller
    End If
    Dossier = Dir                                   ' Prochain fichier à ouvrir
Wend
End Sub