Afficher/masquer feuille selon liste

Bonjour,

J'ai un classeur comprenant plusieurs feuille. Je cherche une fonction qui me permettrait d'afficher seulement les feuilles inscrites dans une liste présente dans la première feuille de mon classeur. Le titre des différentes feuilles seraient inscrit dans ma première feuille sous forme de liste, accompagné d'une case à cocher si on veut faire afficher cette feuille.

Merci d'avance !

Bonjour,

Voici un exemple de mon fichier.

Bonjour,

Le code suivant dans l'onglet "Général" à tester :

Sub test()
    For i = 4 To 34
        If Cells(i, "I") <> "" And Cells(i, "I") = True Then
            Sheets(Cells(i, "I").Offset(0, -7).Value).Visible = False
        End If
    Next i
End Sub

Avec quelques modifications apportées, sa fonctionne très bien ! Merci !