Toggle Button

Bien le bonjour !

Je fais un peu de macro depuis une semaine, et sur un de mes tableaux j'ai positionné deux boutons qui sont ceux-ci:

Private Sub CommandButton1_Click()
      For i = 5 To 56
 
If Range("EQ" & i) = 0 Then '
Rows(i).Select
    Selection.EntireRow.Hidden = True
    End If
 
    Next i
End Sub
-------------------------------------
Private Sub CommandButton2_Click()
For i = 5 To 56

If Range("EQ" & i) = 0 Then '
Rows(i).Select
   Selection.EntireRow.Hidden = False
   End If
   
    Next i
End Sub

Je voudrais tout simplement rassembler ces deux formules sur un bouton de bascule, qui pour moi serait bien plus adapté.
J'ai essayé pas mal de choses mais j'arrive pas à la faire fonctionner..

Des idées?

Merci d'avance