Option Explicit
Sub Test_BG()
Dim i As Integer
i = 2 'Cellule à laquelle tu veux commencer le test
While Cells(i, 1).Value >= 499 'tant que le contenu de la cellule A & i est supérieur à 499
i = i + 1 'Incrémente
'Cells(i, 1).Select 'Si tu veux la sélectionner, enlève le commentaire
Wend
i = i - 1 'Ramène de 1 cellule puisqu'on a incrémenter une fois de trop
'La variable i sera ta position.
End Sub