Sub IMPRIMER()
'
' IMPRIMER Macro
ActiveSheet.PrintPreview '' ou ActiveSheet.printout[ATTACH]149753[/ATTACH]
ActiveSheet.PageSetup.PrintArea = "A1:H30"
ActiveSheet.PageSetup.Orientation = xlPortrait
ActiveSheet.PageSetup.PrintArea = "A31:H137"
ActiveSheet.PageSetup.Orientation = xlPortrait
ActiveSheet.PageSetup.PrintArea = "A186:H322"
ActiveSheet.PageSetup.Orientation = xlPortrait
ActiveSheet.PageSetup.PrintArea = "A138:T185"
ActiveSheet.PageSetup.Orientation = xlLandscape
End Sub