Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$10" Then Exit Sub
valeurCherchee = Round(Target.Value / 500) * 500
Set cellule = Rows(5).Find(valeurCherchee, , , xlWhole)
If Not cellule Is Nothing Then cellule.Select
End Sub