Bonjour SNB,
Je ne suis pas trop trop connaisseur, mais essaie ceci
Dim NbFeuilles As Integer
Dim I As Integer
NbFeuilles = Sheets.Count
For I = 3 To NbFeuilles
Sheets(I).Select (False)
Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Bon Dimanche