do until

Bonjour,

Je me sers beaucoup de la fonction do until dans mes macro pour faire des
recherches, c-a-d que je me crée une feuille dans laquelle je rentre les
différentes listes dont j'ai besoin(ex: jour de la semaine, délégués,
produits,...) ce qui me permet d'incrémenter facilement mes listes lors de
rajouts (pas nécessaire de rentrer dans ma macro). J'utilise donc la fonction
do until qui me permet souvent d'associer une valeur située dans une des
cellules de la même ligne (ex colonne a : nom , colonne b : code , a1 = TOTO,
b1 = T001) mais le problème avec do until est que si le champ ou l'on peut
introduire la valeur qui permet la recherche, n'est pas limité aux valeurs de
la liste (ex: rowsource) lors de l'introduction d'une valeur différente, il
do until jusqu'à la dernière ligne de la feuille excel, et indique un
déboguage, j'utilise dans ce cas le code if error goto mais cette fois j'ai
un problème:

voici le code
On error goto N


N: If Err <> 0 Then
MsgBox "Indiquez uniquement votre nom orthographe correcte" & Chr(13)
Cancel = True
ENCNOM.Value = ""

jusque là aucun problème mais lors de l'ouverture d'un autre userform suite
à la validation de celui-ci et la fermeture (via l'opération unload me) il
m'affiche la msgbox de l'erreur.

J'ai essayé si je retirais on error goto afin de voir si je n'avais pas un
déboguage dans mon programme et qu'il affichait ce message même si c'est 2
userform différent mais pas de déboguage.

Solution:

-autre façon de stopper la recherche avec le do until que le on error goto
- solutionner le problème actuel c-a-d que le msgbox ne s'ouvre pas lors de
la fermeture de ce userform

MERCI
J'ai essayé d'être le plus clair possible mais si plus d'infos n'hésitez pas