Bonjour David
Essayer :
Sub Imprim4()
Sheets(Array("Feuil2", "Feuil4", "Feuil5", "Feuil3")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Feuil4").Select
Range("A1").Select
End Sub
en changeant le nom des feuilles bien sûr !
@+
GD