Masqué une feuille avec condition

Bonjour le forum,

J'aimerais masquer des feuilles à la fermeture pour ne pas oublier, cependant si des feuilles à masquer le sont déjà la macro bloque.

Possible d'adapter le code si la feuille est déjà

masquée alors ne rien faire ?

Ci joint un exemple qui je l'espère sera assez explicite

Un grand merci pour votre aide

Bonjour,

C'est le Select qui plante lorsqu'il opère sur une feuille déjà masquée, supprimes les Select et écris (exemple sur Feuil2) directement Sheets("Feuil2").Visible = False , ça ne plantera pas même si la feuille est déjà masquée. Il faut juste s'assurer qu'il y a toujours au moins une feuille de visible.

Hello,

Essaye ceci

Private Sub Workbook_BeforeClose(Cancel As Boolean)

For i = 2 To 6

    If Sheets("Feuil" & i).Visible = False Then

    Else
        Sheets("Feuil" & i).Select
        ActiveWindow.SelectedSheets.Visible = False

    End If
Next i

    Range("I21").Select
    ActiveWorkbook.Save

End Sub

@+

Merci beaucoup