Impression des onglets pairs et impairs

Bonjour à tous.

Je souhaiterais pouvoir imprimer tous les onglets pairs puis les onglets impairs(ou seulement les onglets pairs ou seulement les onglets impairs) d'un fichier excel.

Merci pour votre aide.

Bonne journée.

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.