Masquer des lignes par bouton bascule

bonjour a tous

dans l'exemple joint je cherche a masquer des lignes par bouton bascule

bouton sur la feuille 1 données sur la feuille 2

amicalement

Bonjour

Code Feuil1

ici, j'ai nommé (Fenêtre propriétés) Bascule le bouton à bascule

Private Sub Bascule_Click()
    If Bascule = True Then
        Call Toto
    Else
        Bascule = False
        Call Affiche
    End If
End Sub

Code Module

Sub Toto()
Application.ScreenUpdating = False
Sheets("Feuil2").Activate
Dim Cel As Range
For Each Cel In Range("C2:C100") 'Plage à adapter à la tienne
If Cel.Value <> "" And Cel.Value = "toto" Then
Cel.EntireRow.Hidden = True
End If
Next
Range("A1").Select
Sheets("Feuil1").Activate
End Sub

Sub Affiche()
Application.ScreenUpdating = False
Sheets("Feuil2").Activate
    Cells.Select
    Selection.EntireRow.Hidden = False
    Range("A1").Select
    Sheets("Feuil1").Activate
End Sub

Cordialement

bonjour

réponse tardive mais merci beaucoup j'ai réussi a l'adapter a mon fichier et cela fonctionne parfaitement

amicalement