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