Erreur 438

Bonjour,

Je n parvient pas à éliminer cette erreur malgré mes recherche sur internet.
Pour un bouton sur une feuille je test le texte dans le bouton.
Pour le code suivant:

Sub Affiche_cache_Ligne()

    If ActiveSheet.Affiche_cache_Ligne.Caption = "Cacher" Then
        UserForm1.Show
    Else
        Sheets("Accueil").Select
    End If
End Sub

J'ai l'erreur 438 alors que cette méthode existe bien et malgré plein d'autres essaye...
La je bloque...