bonjour
je suis embêté avec un "find"
je le test comme suit
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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"