XL 2013 Masquer des lignes et feuilles selon condition

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"

voila exemple du Macro mais je sais pas comment ça marche.
Sub AfficherTouteFeuilles()
Application.ScreenUpdating = False
i = 0
For Each sh In ThisWorkbook.Sheets
sh.Visible = True
i = i + 1
ThisWorkbook.Sheets("Récap").Rows(i & ":" & i).EntireRow.Hidden = False

Next sh

ThisWorkbook.Sheets("Récap").Activate

Application.ScreenUpdating = True

End Sub


Sub Masquer()

Application.ScreenUpdating = False

NbLign = ThisWorkbook.Sheets("Récap").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To NbLign

If ThisWorkbook.Sheets("Récap").Range("I" & i).Value = 0 Then
ThisWorkbook.Sheets(ThisWorkbook.Sheets("Récap").Range("A" & i).Value).Visible = False
ThisWorkbook.Sheets("Récap").Rows(i & ":" & i).EntireRow.Hidden = True
End If

Next i

ThisWorkbook.Sheets("Récap").Activate

Application.ScreenUpdating = True

End Sub


Merci beaucoup
NB : C'est très urgent

Ci-joint le tableau Récap.