VBA Impression : 1 onglet = 1 feuille a imprimer

[suistrop]

Hello,

J'aurai voulu savoir comment résoudre ce pbl : Imprimer ce que je "selectionne" sur une unique page !

J'utilise pour le moment :

ActiveWindow.View = xlPageBreakPreview
ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(ligne_debut, last_col)).Address
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1 ' ca peut buger si il n y a que 1 page a print et pas 2 par defaut
ActiveWindow.View = xlNormalView

Le probleme de ce code c est qu il bug si par exemple lors de la selection :

(ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(ligne_debut, last_col)).Address )

Il imprime que 1 page alors :

ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1

va buger !!

Je pense que si j arrive a compter le nombre de feuille qui vont etre imprimer alors je pourrais m en sortir pour le moment j y arrive pas !!

Merci d avance !