Sub Imprime()
For I = 1 To Worksheets.Count
MyNom = Worksheets(I).Name
Select Case MyNom
Case "Janvier", "Février", "Mars", "Avril"
Worksheets(I).Activate
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=18, _
Collate:=True
Case Else
' On n'imprime pas"
End Select
Next I
End Sub