[VBA] Problème de bouton qui disparaît???

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

Private Sub Workbook_BeforePrint(Cancel As Boolean)
' une instruction qui cache ou supprime le bouton
End Sub