Macro masquer des lignes si c'est vrais (case à cocher)

Bonjour

Je ne parviens pas à trouver le code qui permet de masquer des lignes si ils contiennent une valeur donnée (0) et j'ai le même problème avec des groupes de ligne je vais vous l'expliquer en images :

Problème 1

Problème 2

Pouvez-vous m'aider ?

Cordialement

Bonsoir,

Sans trop de compétence en vba mais... pour avancer le schmilblick voir cet essai en Pj

Slts

Bonjour,

Une solution sans bouton ou objet sur votre feuille
1. Défusionnez votre cellule AG1 à AG7
2. Click droite sur l'onglet concerné par votre demande
3. Choisissez l'option "Visualiser le code"
4. Supprimez le code Private Command_click qui se trouve actuellement dans cette fenêtre et collez le code ci-dessous

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Dan
Dim i As Byte
If Target.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("AG3")) Is Nothing Then
    Application.ScreenUpdating = False

    Select Case Target.FormulaR1C1
        Case Is = "£"
            For i = 15 To 69
                If Range("AG" & i) = 0 Then Rows(i).EntireRow.Hidden = True Else: Rows(i).EntireRow.Hidden = False
            Next i
            Target.FormulaR1C1 = "R"
        Case Is = "R"
            Range("AG15:AG69").EntireRow.Hidden = False
            Target.FormulaR1C1 = "£"
    End Select
    With Target
        .Font.Name = "Wingdings 2"
        .Font.Size = 20
        .Offset(1, 0).Select
    End With
    Application.ScreenUpdating = True
End If
End Sub

6. Pour l'utilisation, cliquez toujours sur AG3 pour que le code fonctionne

Cordialement

Merci de votre aide