Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
Range("A1") = "Vrai"
ToggleButton1.Caption = "Vrai"
Else
Range("A1") = "Faux"
ToggleButton1.Caption = "Faux"
End If
End Sub
Private Sub UserForm_Initialize()
If AutoFilterMode = True Then
ToggleButton1.Caption = "Filtre auto activé"
Else
ToggleButton1.Caption = "Filtre auto désactivé"
End If
End Sub