Macro de recherche (pb)

Bonjour,

Mon soucis est le suivant : lorsque j'utilise dans une macro le code suivant :

Cells.Find(What:=UserForm1.TextBox1.Value, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate

et si ma recherche est infructueuse il me renvoi un message d'erreur (si il trouve la donnée, tout va bien la cellule est activée)
que dois-je rajouter SVP ?

Merci par avance ...

Cordialement,

François B.