Microsoft 365 Combinaison de plus de 200 classeurs dont la structure est identique

Sub Grouper()
'se lance par le raccourci clavier Ctrl+G
Dim ncol%, chemin$, fichier$, feuille$, lig&, form$, h&
ncol = 16 'nombre de colonnes à copier
chemin = ThisWorkbook.Path & "\" 'dossier des classeurs
fichier = Dir(chemin & "*.xlsx") '1er fichier du dossier
feuille = "Resultats"
lig = 2
Application.ScreenUpdating = False
Rows(lig & ":" & Rows.Count).ClearContents 'RAZ
While fichier <> ""
    form = "'" & chemin & "[" & fichier & "]" & feuille & "'!"
    h = ExecuteExcel4Macro("MATCH(""zzz""," & form & "C1)")
    If h > 1 Then
        With Cells(lig, 1).Resize(h - 1, ncol)
            .FormulaArray = "=" & form & "R2C1:R" & h & "C" & ncol
            .Value = .Value 'supprime les formules
        End With
        lig = lig + h - 1
    End If
    fichier = Dir 'fichier suivant
Wend
ActiveSheet.UsedRange.Replace 0, "", xlWhole 'efface les valeurs zéro
End Sub

let
    Source = Folder.Files(Excel.CurrentWorkbook(){[Name="CheminDossier"]}[Content]{0}[Column1]),
    Filtr = Table.SelectRows(Source, each Text.StartsWith([Name], "resul")),
    Transform = Table.TransformColumns(Filtr, { "Content", each Excel.Workbook(_, true )}),
    Expand1 = Table.ExpandTableColumn(Transform, "Content", {"Data", "Kind"}, {"Data", "Kind"}),
    Selections = Table.SelectRows(Expand1, each ([Kind] <> "DefinedName") and Text.Contains([Extension], "xls")) [[Name],[Data]],
    Expand2 = Table.ExpandTableColumn(Selections, "Data", Table.ColumnNames(Selections[Data]{0}), Table.ColumnNames(Selections[Data]{0})),
    ModType = Table.TransformColumnTypes(Expand2,{{"Date Compréhension Écrite", type date}, {"Date Compréhension Orale", type date}, {"Date Grammaire et Lexique", type date}})
in
    ModType