Masquer feuille à l'ouverture

Bonjour.

J'ai une macro qui doit masquer toutes les feuilles sauf une lorsque j'ouvre mon fichier XSLX.

Voici le code. Évidemement si je vous demande votre aide c'est que ca ne fonctionne pas.

Private Sub Workbook_open()

Dim sh As Worksheets

For Each sh In Worksheet
If sh.Name <> "Ouverture de projet" Then sh.Visible = xlSheethiden
Next

End Sub

Merci de votre support.

Bonjour,

Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name <> "Ouverture de projet" Then sh.Visible = False