Find un probleme

bonjour
je suis embêté avec un "find"
je le test comme suit

Code:

---

1 2 3 4 5 6 7

With Worksheets("data").Range("b1:b" & Range("a65535").End(xlUp).Row)   Set c = .Find("Dupuy4", LookIn:=xlValues) If Not c Is Nothing Then lg = c.Row End If End With

---

ça marche avec "Dupon6" mais pas avec ce dupuy4 pour être un peu plus sûr je signale que le nom est directement copier de la feuille dans la code (ce qui évite les fautes de frappe
le suivi en pas à pas saute de "If Not c Is Nothing Then" à "end if"
:calim2:

déjà il faut écrire

Code:

---

With Worksheets("data").Range("b1:b" & Worksheets("data").Range("a65535").End(xlUp).Row)

---

c'est pas "déjà "...
mais: "l'erreur viens de "
merci les tests ont l'air concluant : ça find aux petits oignons

:ccool: