Option Explicit

    Dim wbk1 As Workbook, wbk2 As Workbook
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim rng1 As Range, rng2 As Range
    
    Dim chemin$, monFichier$, onglet$
    
Sub maj()
    
    chemin = ThisWorkbook.Path & "\"
    
    Set wbk1 = ThisWorkbook
    Set ws1 = ActiveSheet
    ws1.Cells(1).CurrentRegion.Offset(1, 0).ClearContents
    monFichier = Dir(chemin & "*.xlsx")
    
    Do While monFichier <> ""
        Set wbk2 = Workbooks.Open(chemin & monFichier)
        Set ws2 = ActiveSheet
        Set rng2 = ws2.Cells(1).CurrentRegion
        rng2.Offset(1).Resize(rng2.Rows.Count - 1, rng2.Columns.Count).Copy
        Set rng1 = ws1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
        rng1.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
        Application.CutCopyMode = False
        wbk2.Close False
        monFichier = Dir
    Loop

    ws1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
    
End Sub