trouver où est située une valeur dans une plage de données

Essaye ça

Si XXX est la valeur recuperée par l'inputbox, le code ci-dessous recherche la valeur dans la plage A1:A500


With Range("a1:a500")
Set c = .Find(XXX, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Msgbox ("Trouvé : ligne " &c.row &" colonne " &c.column
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
MsgBox ("Trouvé : ligne " & c.Row & " - colonne " & c.Column)

Merci pour ton aide !
a bientot !
Liline.