bonjour
l'exemple que je t'ai concocté copie les plages de cellules utilisées des feuilles Feuil1, Feuil2 & Feuil3 vers une feuille "synthèse" crée au préalable
Sub demo_copie_zones()
On Error Resume Next
Application.DisplayAlerts = False
Sheets("synthese").Delete
Sheets.Add.Name = "synthese"
Set obj_sh_active = ActiveSheet
For Each sh In Worksheets(Array("feuil1", "feuil2", "feuil3"))
sh.UsedRange.Copy obj_sh_active.Cells.SpecialCells(xlCellTypeLastCell).EntireRow.Cells.Item(1).Offset(1)
Next sh
End Sub
bye
stephane