Boucle sur range

Bonjour,

j'ai une boucle comme ceci:
Dim rng As Range, cell As Range
Set rng = Sheets("donnees").Range("a3:a65000")
For Each cell In rng
If cell.Value <> "" Then
.....
end if
next cell

le problème c'est que ça parcoure la rangée du bas vers le haut.
et que je ne veux pas toucher à la variable (cell as range) car elle est utilisée beaucoup de fois .
je voudrais que sur la colonne (I) si il y a une valeur il passe à la prochaine cellule toujours dans le Range("a3:a65000")
Je pense ce qu'il me faudrait c'est que la boucle va de haut en bas.
Merci pour toute aide éventuelle
onfig>Windows 7 / Internet Explorer 8.0</config>