Sub CopyIntoOneII()
For each x in Array("Feuil1","Feuil2","Feuil3","Feuil4")
'adapter la plage de cellues
'Sheets(x).Range("A1:F100").Copy
' Copie de la zone en cours (sous certaines conditions)
Sheets(x).UsedRange.Copy
' adapter le nom de la feuille devant recevoir la copie
Sheets("Master").Range("A65536").End(xlUp).Offset(1).Pastespecial
Next
End Sub