recherche et ne trouve pas

Bonjour le Forum

Je ne trouve pas la solution
quand j'execute ce code Une seule fois

Dim c As Range 'déclare la variable c
Dim plage As Range

Set plage = Sheets('Stock').Range('A1:A' & Sheets('Stock').Range('A65536').End(xlUp).Row)
With plage
Set c = .Find(ComboArticles.Value, , xlValues, xlWhole)
If c Is Nothing Then
MsgBox 'La Référence n'existe pas dans la base'
ComboArticles.SetFocus
Stock = ''
Designation = ''
Stockmini = ''
Crit1 = ''
Exit Sub

End If 'fin condition
End With

MA reCherche avec ce code ne marche plus ( recherche infrutueuse) avec ce code:

'début de la recherche
With plage

Set r = .Find(mot, Sheets('Stock').Range(col & li), xlValues) 'définit la variable c
If r Is Nothing Then 'si recherche infructueuse
MsgBox 'Mot-clé non trouvé.' 'message
TextBox1.SetFocus 'place le curseuer dans la TextBox1
TextBox1.SelStart = 0 'début de la sélection
TextBox1.SelLength = Len(TextBox1.Value)
Exit Sub
End If
End With
'continuation de la recherche
Unload Me 'vide et ferme l'UserForm1
Module3.cherche 'lance la procédure 'cherche' du module3

Nb cette recherche fonctionne bien si je ne lance pas le code du début.

Merci de m'aider
et Bonne journée a tous