Impression des onglets pairs et impairs

Salut,

Ce genre de code te ferait il l'affaire ?

Sub impressionPaireouImpaire(J As Byte)
Dim I As Long
For I = 1 To ThisWorkbook.Worksheets.Count
If I Mod 2 = J Then Sheets(I).PrintOut
Next I
End Sub


Sub Impression()
impressionPaireouImpaire 0 'impression pair
impressionPaireouImpaire 1 ' impression impaire
End Sub

Tout à fait!

C'est exactement ce que je cherchais.
Merci pour ton aide.