Microsoft 365 Combiner requetes Power Query ou VBA

Sub compilLisobject()
    Dim compil As Worksheet, sh As Worksheet, header As Range, tablo As Range, tbstyle As String
    
    On Error Resume Next
    Application.DisplayAlerts = False
    Sheets("compil").Delete
    Err.Clear
    
    Set compil = Sheets.Add(after:=Sheets(Sheets.Count))
    compil.Name = "compil"
    For Each sh In Worksheets
        On Error Resume Next
        Set header = sh.ListObjects(1).Range.Rows(1)
        Set tablo = sh.ListObjects(1).DataBodyRange
        tbstyle = sh.ListObjects(1).TableStyle
        compil.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(tablo.Rows.Count, tablo.Columns.Count).Value = tablo.Value
        Err.Clear
    Next
    compil.Cells(1, 1).Resize(, header.Columns.Count).Value = header.Value
    With ActiveSheet.ListObjects.Add(xlSrcRange, ActiveSheet.UsedRange, , xlYes)
        .Name = "Tableau3"
        .TableStyle = tbstyle
    End With
End Sub