Sub Bouton2_Cliquer()
With ActiveSheet.PageSetup
.PrintArea = "A1:H30"
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
ActiveSheet.PrintPreview
.PrintArea = "A31:H137"
.Orientation = xlPortrait
ActiveSheet.PrintPreview
.PrintArea = "A186:H309"
.Orientation = xlPortrait
ActiveSheet.PrintPreview
.PrintArea = "A310:H322"
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
ActiveSheet.PrintPreview
.PrintArea = "A138:T185"
.Orientation = xlLandscape
ActiveSheet.PrintPreview
End With