Private Sub ToggleButton1_Click()
ActiveCell.Select 'enlève le focus au bouton
'modifie le texte du ToglleButton en fonction de sa valeur
ToggleButton1.Caption = IIf(ToggleButton1.Value = True, "Afficher", "Masquer")
'condition : si la valeur du Togglebutton1 est différente de 0
If ToggleButton1.Value <> 0 Then
With Range("D5") 'prende en compte la cellule D5
'filtre automatique (sans afficher la flèche) sans critère pour D5 (field 1)
.AutoFilter field:=1, VisibleDropDown:=False
'filtre automatique (sans afficher la flèche) avec le critère "1" pour E5 (field 2)
.AutoFilter field:=2, Criteria1:="1", VisibleDropDown:=False
End With 'fin de la prise en compte de la cellule D5
Else
ActiveSheet.AutoFilterMode = False 'annule le fltre automatique
End If
End Sub