Concaténation de plusieurs onglets en un

Bonjour plusieurs onglets avec les mêmes entêtes...
Je voudrais reprendre tout dans un seul onglet (Concat)
J'ai essayé la macro suivante, mais elle bugge pas(pas de msg d'erreu) mais elle ne repren pas tout!
1656 lignes ald +/-3089 lignes

Merci d'avance,
Claudy

Sub ConcatenationFeuilles()
Dim i As Long, T() As Variant

Application.ScreenUpdating = False
Sheet1.Cells.Clear
For i = 1 To Sheets.Count
If Sheets(i).Name <> Sheet1.Name Then
With Sheets(i)
T = .Range("A2:V" & .Range("A" & Rows.Count).End(xlUp).Row).Value
Sheet1.Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(T, 1), UBound(T, 2)) = T
End With
End If
Next i
Erase T
Application.ScreenUpdating = True
End Sub