Problème de détection si filtre auto est présent

Bonsoir à tous,

J'essaye de capter dans le caption d'un ToggleButton à l'ouverture d'un USF la présence ou non d'un filtre auto donc j'ai codé comme ceci :

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

sauf qu'à l'ouverture de l'USF, le caption du ToggleButton m'indique toujours la valeur Filtre Auto désactivé.

Aurais-je oublié quelque chose ?

Merci pour vos pistes et bonne soirée.

Suite à une remarque pertinente, j'ai rajouté :

With Sheets("Feuil1")

en début de macro avant le test et résultat est toujours le même ???????

Merci encore.

Bonsoir

To code devient : Ne pas oublier le . (point) devant AutoFilterMode

Private Sub UserForm_Initialize()
  With Sheets("Feuil1")
    If .AutoFilterMode = True Then
      ToggleButton1.Caption = "Filtre auto activé"
    Else
      ToggleButton1.Caption = "Filtre auto désactivé"
    End If
  End With
End Sub