Fusionner plusieurs fichiers excel de meme contenu en un seul

"Fichier-maitre.xlsm

Option Compare Text

Sub RecupListeFichiersEsclaves()
    Application.ScreenUpdating = False
    Dim Chemin As String, FichEscl As String, i As Integer
    Range("A5:A20").ClearContents
    Chemin = Sheets("Liste des fichiers esclaves").[A2] & "\"
    FichEscl = Dir(Chemin)
    Lig = 5 'on démarre à la ligne 5
    
    'tant que la liste des fichiers esclaves n'est pas vide  et que le fichier n'est pas le fichier maître, alors on récupère le nom du fichier esclave.
    'ensuite dans la colonne B, on crée une formule qui va extraire la date du fichier
    Do While FichEscl <> "" And FichEscl <> "Fichier-maitre.xlsm"
        Sheets("Liste des fichiers esclaves").Cells(Lig, 1) = FichEscl
        Sheets("Liste des fichiers esclaves").Cells(Lig, 2) = "=VALUE(MID(RC[-1],7,2) & ""/"" & MID(RC[-1],5,2) & ""/"" & LEFT(RC[-1],4))"
        FichEscl = Dir 'on passe au fichier suivant
        Lig = Lig + 1 'on de décale sur la ligne suivnate
    Loop
    
    'on fait un tri par date, du plus ancien au plus récent
    Range("A5").Select
    ActiveWorkbook.Worksheets("Liste des fichiers esclaves").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Liste des fichiers esclaves").Sort.SortFields.Add Key:=Range("B5:B" & Lig), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Liste des fichiers esclaves").Sort
        .SetRange Range("A4:B" & Lig)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    'on repère la dernière ligne et dernière colonne du fichier final
    DerLig = Sheets("Fichier maitre final").Range("A1").SpecialCells(xlCellTypeLastCell).Row
    DerCol = Sheets("Fichier maitre final").Range("A1").SpecialCells(xlCellTypeLastCell).Column
    
    ReDim Valeur(DerLig, DerLig, DerCol) As String 'on crée une variable "Valeur" avec les arguments suivants(Derlig pour le nombre maximum de fichiers esclaves, _
    DerLig pour le nombre maxi de lignes du tableau, DerCol pour le nombre de colonnes maxi du tableau)
    'pour chaque fichier esclave
    For i = 5 To Lig - 1 'on boucle de la ligne 5 jusqu'à la dernière ligne pour ouvrir chaque fichier esclave
        Workbooks.Open Filename:=Chemin & Sheets("Liste des fichiers esclaves").Cells(i, 1)
        For l = 2 To DerLig 'de la ligne 2 du tableau et jusqu'à la dernière, on relève toutes les valeurs
            For c = 2 To DerCol
                Valeur(i, l, c) = Cells(l, c)
            Next c
        Next l
        ActiveWorkbook.Close 'on ferme le fichier esclave
    Next i ' on passe au fichier suivant si il existe, sinon on passe à la ligne suivante
    
    'ici, on fait l'opération inverse, on recopie toutes les valeurs enregistrées précédemment et on les restituent dans le tableau final
    For i = 5 To Lig
        For l = 2 To DerLig
            For c = 2 To DerCol
                ' on dépose la nouvelle valeur
                Sheets("Fichier maitre final").Cells(l, c) = Valeur(i, l, c)
            Next c 'on passe à la colonne suivante
        Next l 'on passe à la ligne suivante
    Next i 'on passe au fichier esclave suivant
End Sub
Cdlt