s = Range("C5").Value
Set rechercheNomObjet = Nothing
With ThisWorkbook.Sheets("Feuil1")
For l = 1 To .Range("B65000").End(xlUp).Row
If s = Cells(l, 2) Then
Set rechercheNomObjet = .Cells(l, 2)
Exit For
End If
Next
End With
If rechercheNomObjet Is Nothing Then
'pas trouvé
End If