Sub Regrouper_Feuilles_Concernées()
Dim F As Worksheet, a, i As Integer, Sh As Worksheet
Set F = Worksheets("synthèse")
Application.ScreenUpdating = False
a = Array("Feuil1", "Feuil2", "Feuil3") 'on met le nom des feuilles à copier dans une variable tableau (adapter nom feuilles)
Debug.Print LBound(a), UBound(a)
F.Range("A1").CurrentRegion.Offset(1).Clear 'on efface
For i = LBound(a) To UBound(a)
Set Sh = Worksheets(a(i))
With Sh
.Range("A1").CurrentRegion.Offset(1).Copy F.Range("A" & Rows.Count).End(xlUp)(2)
End With
Next i
Set Sh = Nothing: Set F = Nothing
Application.ScreenUpdating = True
MsgBox "Transfert terminé!", vbInformation + vbOKOnly, "TRANSFERT DONNEES"
End Sub