Bonjour ACPc, le fil,
En ajoutant un onglet "Global" ou viendront se placer les données a recapituler:
Sub Données_regrouper()
Dim o As Worksheet
Sheets("Global").Cells.Clear
For Each o In Worksheets
If o.Name <> "Global" Then
o.Range("A2").CurrentRegion.Copy Destination:=Sheets("Global").Range("a65536").End(xlUp)(2)
End If
Next
Sheets("Global").Cells.Columns.AutoFit
End Sub