Bonjour,
Ton fichier est protégé à l'ouverture.
Dans le module ThisWorkbokk,, essaie :
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Set Sh = ActiveSheet
If Sh.Name = "Feuil2" Then
Sh.Visible = False
End If
Set Sh = Nothing
End Sub