Sub impression_graphes()
If MsgBox("Etes-vous certain de vouloir imprimer les graphes?", vbYesNo, "Demande de confirmation") = vbYes Then
ActiveSheet.PageSetup.PrintArea = "$B$2:$T$70"
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperA3
.BlackAndWhite = False
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveSheet.PageSetup.PrintArea = "$V$2:$AO$71"
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperA3
.BlackAndWhite = False
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveSheet.PageSetup.PrintArea = "$B$73:$T$122"
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperA3
.BlackAndWhite = False
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveSheet.PageSetup.PrintArea = "$V$73:$AG$162"
With ActiveSheet.PageSetup
.Orientation = xlPortrait
.PaperSize = xlPaperA4
.BlackAndWhite = False
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
End Sub