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