Sub PrintImpair()
Dim NbFeuil, i
NbFeuil = 6
For i = 1 To NbFeuil Step 2
ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i, Copies:=1, Collate _
:=True
Next
End Sub
Sub PrintPair()
Dim NbFeuil, i
NbFeuil = 6
For i = 2 To NbFeuil Step 2
ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i, Copies:=1, Collate _
:=True
Next
End Sub