Sub Macro1()
Dim OD As Object 'déclare la variable OD (Onglet de Destination)
Dim O As Object 'déclare la variable O (Onglets)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)
Dim L As Long
Set OD = Sheets("Master Data") 'définit l'onglet OD
For Each O In Sheets 'boucle sur tous les onglets O du classeur
Select Case O.Name 'agit en fonction du nom de l'onglet O
'cas "Sommaire", "Formulaire Demande", "Formulaire Process" et "Master Data", rien ne se passe
Case "Sommaire", "Formulaire Demande", "Formulaire Process", "Master Data"
Case Else 'tous les autres cas
'définit la cellule de destination DEST (A1 si A1 est vide sinon, la première cellule vide de la ligne 1)
Set DEST = OD.Range("A65536").End(xlUp).Offset(1, 0)
L = O.Range("A65536").End(xlUp).Row 'adapter 65536 si nécessaire
If L > 1 Then Range(O.Range("A1"), O.Range("A" & L).Offset(0, 3)).Copy DEST
End Select 'fin de la condition
Next O 'prochain onglet de la boucle
End Sub