Bonjour à tous

Je rencontre un problème avec la fonction Like.
Je souhaite vérifier si le texte d'une TextBox située sur un UserForm est inclus dans une chaîne de caractère située dans une Cellule.
Par exemple, dans ma TextBox je saisi le mot "armoire", dans ma cellule A1 j'ai saisi "Remplacer l'armoire de la chambre"

SI j'écris
Code : Sélectionner tout - Visualiser dans une fenêtre à part
If Range("A1") Like "*armoire*" then
je valide ma condition.

Si par contre j'écris
Code : Sélectionner tout - Visualiser dans une fenêtre à part
If Range("A1") Like "*UserForm1.TextBox1.Text*"
ma condition n'est pas reconnue.

J'ai également essayé ceci:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Dim Mot As String
Set Mot = ("UserForm1.TextBox1.Text").
If Range("A1") Like "*Mot*" then
Dans ce cas lorsque je teste mon code, au démarrage j'ai un message d'erreur
Erreur de Compilation
Objet Requis
qui pointe sur Mot dans
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set Mot = ("UserForm1.TextBox1.Text")
Quelqu'un a-t-il une idée sur la façon de résoudre mon problème?

Merci pour aide
Eric