Masquer et demasquer des lignes sous conditions

Bonjour à tous,

Pouvez vous svp m'aider à finir le code suivant qui permet de masquer les lignes du tableau lorsque 0€ est Indiqué en colonne C.

Je souhaiterais pouvoir démasquer à l'aide du bouton Bascule les lignes précédemment masquées.

Clic 1 = Masquer.

Clic 2 = démasquer.

Private Sub ToggleButton1_Click()
Application.ScreenUpdating = False
For i = 11 To 30 
If Range("C" & i) = 0 Then 
Rows(i).Select
Selection.EntireRow.Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub

Merci pour votre aide.

PS : Je joins le fichier pour plus de clarté si besoin.

Bonjour,

Comme ceci par exemple :

Private Sub ToggleButton1_Click()
Application.ScreenUpdating = False

For i = 11 To 30  'Nb de ligne à traiter

If ToggleButton1.Value = True Then
    If Range("C" & i) = 0 Then Rows(i).EntireRow.Hidden = True   'masque la ligne
Else:
    Rows(i).EntireRow.Hidden = False
End If

Next i
Application.ScreenUpdating = True

End Sub

Bonsoir JoyeuxNoel,

Au top et super rapide, merci beaucoup.

Bonne soirée