Option Compare Text
Sub recherche_NOM()
Dim i As Long, NOM As String
NOM = Application.InputBox("Veuillez indiquer le NOM", "recherche")
With Sheets("Feuil1")
For i = 2 To 65536
If .Cells(i, 1) = "" Then
MsgBox " NOM non trouvé"
Exit Sub
ElseIf .Cells(i, 1) = NOM Then
.Cells(i, 1).Select
Exit Sub
End If
Next i
End With
End Sub