XL 2013 Masquer ligne et feuille selon condition

[TAHANI]

Bonjour,

J'ai un tableau Récap et des feuilles correspond à chaque cellule dans la colonne A et chaque ligne correspond à un onglet. J'aurais besoin d'aide pour créer un bouton qui me permette de masquer une ligne et la une feuille qui porte le même nom, si la valeur de la colonne I correspondante = 0. Je souhaiterais avoir un autre bouton qui démasque.

Par exemple, dans le tableau que je joins, la cellule F13=0, je veux donc masquer la ligne 13 et la feuille "A.1"

Merci beaucoup
NB : C'est très urgent

Ci-joint le tableau Récap.

 

[Hieu]

Salut,

Pour masquer :

Sub masquer()
Application.ScreenUpdating = False
For i = 2 To 9
    nom = Range("a" & i)
If Range("i" & i) = 0 Then
    Rows(i).EntireRow.Hidden = True
    Sheets(nom).Visible = False
End If
Next i
End Sub

Pour afficher :

Sub afficher()
Application.ScreenUpdating = False
For Each r In Rows("2:9"): r.Hidden = False: Next r
For Each s In Sheets: s.Visible = True: Next s
End Sub

++