Erreur variable bloc with non definie

Bonjour,

J'ai une macro comme ceci:

If Not Me.TextBox1.Value = Range("listetag!a1:a" & Range("listetag!A65536").End(xlUp).Row).Find(TextBox1.Value) Then
MsgBox "vous n'avez pas bien tape sur le textbox1.recommencez", vbCritical
Exit Sub
End If

Cette macro fonctionne parfaitement dans un autre module.
Cependant j'ai vérifié et revérifié , la macro est identique.juste le userform qui est différent mais toujours avec le textbox1.il m'affiche le message:
Viariable objet ou variable de bloc with non definie?????? et ceci est affiché en jaune:

If Not Me.TextBox1.Value = Range("listetag!a1:a" & Range("listetag!A65536").End