XL 2013 Impression de 2 plages d'une meme feuille

[tactic6]

Bonjour les amis
Voici une macro qui me permet d'imprimer (enregistrer au format .pdf) 2 pages
ce code fonctionne parfaitement bien pour ceux qui peuvent en avoir l'utilité

Sub Imprimerpage2_PDF()
With ActiveSheet.PageSetup
.PrintArea = "$B$2:$K$62" 'ici la première plage de la premier page
ActiveSheet.PrintPreview
.PrintArea = "$B$72:$K$138" 'ici la deuxieme plage de la deuxième page et au besoin ou rajoute
ActiveSheet.PrintPreview
End With
End Sub

Serait il possible de passer à la dernière étape, ici la page 2, sans être obligé de valider l'impression de la page 1 et que les 2 s'impriment

Merci à tous

 

[tactic6]

Probleme resolu il suffit juste d'adapter la zone d'impression