Sub Compiler_Feuilles_en_Une()
Dim wrk As Workbook, ws As Worksheet, R_Ws As Worksheet, rng As Range, NbCol&
Set wrk = ActiveWorkbook
Application.ScreenUpdating = False
Set R_Ws = wrk.Worksheets("RECAP"): Set ws = wrk.Worksheets(2) 'à adapter selon configuration du classeur
R_Ws.UsedRange.Clear
NbCol = ws.Cells(1, Columns.Count).End(xlToLeft).Column
'récupération de la ligne d'entête sur la feuille 2
R_Ws.Rows(1).Value = ws.Rows(1).Value
'boucle sur toutes les feuilles
For Each ws In wrk.Worksheets
If ws.Name <> "RECAP" Then
Set rng = ws.Range(ws.Cells(2, 1), ws.Cells(Rows.Count, 1).End(xlUp).Resize(, NbCol))
'compilation des données sans passer par le copier/coller
R_Ws.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(rng.Rows.Count, rng.Columns.Count).Value = rng.Value
End If
Next ws
R_Ws.Columns.AutoFit
Application.ScreenUpdating = True
End Sub