erreur activesheet.sapes

Bonjour juste un renseignement a quoi correspond l'erreur suivante?

Sub masquefeuillespharma()
Dim I As Integer, MesSht As String, TSht() As String, TxtShp As String
' Tableau des feuilles à AFFICHER/CACHER séparée par des virgule
' Mettre en premier n'importe quel texte, ne sera pas pris en compte
MesSht = "X,Affections,Remèdes"
TSht = Split(MesSht, ",")
' Sélectionner la forme automatique 18
ActiveSheet.Shapes("AutoShape 18").Select
' Récupérer le texte de la forme
TxtShp = Selection.Characters.Text
' Suivant le texte que contient la forme automatique
If TxtShp = "Afficher les feuilles" Then
' Demander le mot de passe
Usf_Mdp.TextBox1.Value = ""
Usf_Mdp.Show
If FlgOk = False Then
MsgBox "Mot de passe érroné !"
Exit Sub
End If
' Si OK, masquer les feuilles
For I = 1 To UBound(TSht)
Sheets(TSht(I)).Visible = True
Next I
Selection.Characters.Text = "Masquer les feuilles"
Else
For I = 1 To UBound(TSht)
Sheets(TSht(I)).Visible = False
Next I
Selection.Characters.Text = "Afficher les feuilles"
End If
Range("A2").Select
End Sub

j'ai essayé d'importer une maccro vba qui fonctionne dans un classeur mais à celui là j'ai cette erreur mais je ne sais pas à quoi elle correspond merci d'avance