bonjours a tous

voici une macro que je viens de monte
mon probleme et que je suis sur une feuille nome divers
et que je veux imprime une feuille nome base sans que celle ci apparaisse

ma macro imprime bien mais fait apparaitre la feuille nome base

Sub ImprimeBASE()

'Msg = "Voulez-vous vraiment imprimer le rapport ?"
Style = vbYesNo + vbCritical + vbDefaultButton1
Title = "IMPRESSION DU RAPPORT"
Réponse = MsgBox(Msg, Style, Title)
If Réponse = vbYes Then
GoTo continu
Else
Exit Sub
End If
continu:
Dim MaFeuille As Object
Application.ScreenUpdating = False

'Emplacement des pages a imprimer
Set montab = Worksheets(Array(3))

'For Each MaFeuille In montab

'MaFeuille.Select
'Zone D'impression

ActiveSheet.PageSetup.PrintArea = "$a$1:$E$26"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next

si vous avait des idees merci par avance
aiglon74

.....
Const Msg As String = "Voulez-vous vraiment imprimer le rapport ?"
 
    Style = vbYesNo + vbCritical + vbDefaultButton1
    Title = "IMPRESSION DU RAPPORT"
    Réponse = MsgBox(Msg, Style, Title)
     
    If Réponse <> vbYes Then Exit Sub
 
    Application.ScreenUpdating = False
 .....
 .....
        Sheets("Divers" ).Select
    Application.ScreenUpdating = True
End Sub
 
Sub Auto_Open()
    Sheets("Base" ).Visible = xlVeryHidden
End Sub