Cacher feuilles lors ouverture classeur

Bjr,

Encore un petit pb que je n'arrive pas à résoudre.

Je souhaiterais, à l'ouverture du classeur, cacher certaines feuilles, en fonction de la valeur d'une cellule sur une autre feuille.

Dans mon exemple:

• les trois premières feuilles (en rouge) doivent rester visibles, et,
• en fonction de la valeur de la cellule A1 de la feuille "Calculs", seule la feuille correspondante parmi les feuilles "Casx" restera visible. En l'occurence "Cas2"

Je pense que c'est dans "ThisWorkbook" que ça se passe, mais je sèche...

Merci d'avance

Bonjour,

A tester :

Option Explicit
Private Sub Workbook_Open()
Dim Ws As Worksheet, _
    sWs As String, _
    i As Integer

    Application.ScreenUpdating = False

    On Error Resume Next
    For Each Ws In ThisWorkbook.Worksheets
        Ws.Visible = True
    Next
    On Error GoTo 0

    sWs = Worksheets("Calculs").Range("A1")

    For i = 4 To ThisWorkbook.Worksheets.Count
        If Worksheets(i).Name <> sWs Then Worksheets(i).Visible = False
    Next i

End Sub

Merci !

Ça parait si simple lorsqu'on lit le code...