Problème Excel Impression recto/verso

Bonjour à tous,

J'ai cherché sur pas mal de forums, et je n'ai pas trouvé de solution à mon problème, alors je l'expose ici en espérant que quelqu'un puisse m'aider.

J'ai un classeur Excel contenant 8 feuilles "fixes", servant de base au travail, que je ne veux n'y modifier ni imprimer (qui contiennent des zones de texte, qui renvoient à des formules, des liste déroulantes, etc..).
Dans ce même classeur, un nombre variable (entre 1 et 30 quoi) de feuilles va être produit, en fonction du client. Ce sont donc ces feuilles que je veux imprimer, en recto verso.
Plus exactement, je cherche à imprimer une zone de cellule sur chacune des feuilles (A1:I83) ce qui correspond pile poil à deux pages, que je veux recto-verso.

Mon souci est de créer un bouton avec une macro me permettant d'imprimer sur chaque feuille la zone indiquée, en recto-verso.

Pour le bouton, pas de soucis. Par contre, le bout de code que j'ai produit ne me donne pas entière satisfaction :

Sub Imprimer()
Dim n As String
Dim i As Integer

n = Sheets.Count - 8 'toutes les feuilles sauf les 8 fixes à ne pas imprimer
For i = 1 To n
Sheets(i).Activate
Range("A1:I83").Select
Selection.PrintOut Copies:=1, Collate:=True

Next i

End Sub

Avec ce code, l'impression se lance bien, la feuille placée en première position s'imprime en recto-verso selon la zone définie, mais les impressions des feuilles suivantes ne sont plus recto-verso, elles respectent toujours la zone définie, mais en recto simple seulement.

Si quelqu'un a une idée pour m'aider, il ferait un geste pour moi, et un geste pour la planète, en économisant mes feuilles ;)

Merci d'avance !