Regrouper sur 1 feuille excel des info de 50 onglets.

Option Explicit

Sub ConcatenationFeuilles()
Dim T() As Variant
Dim Ws As Worksheet
    Application.ScreenUpdating = False
    ShConcat.Cells.Clear
    For Each Ws In ThisWorkbook.Worksheets
        If Ws.Name <> ShConcat.Name Then
            With Ws
                T = .Range("A4:J" & .Range("A" & Rows.Count).End(xlUp).Row).Value
                ShConcat.Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(T, 1), UBound(T, 2)) = T
            End With
        End If
    Next Ws
    Erase T
    Application.ScreenUpdating = True
End Sub