Incrémentation VBA

Bonjour,

J'ai un problème avec ACCESS et un code en VBA...
Je cherche depuis au moins une heure et pas moyen que ça fonctionne.

Dim i As Integer
i = 0

While Not IsEmpty(Cells(i, 2))
MsgBox Cells(i, 2)
i = i + 1
Wend

Cela me fait une boucle infinie et je ne comprends pas pourquoi...

Merci