Remplissage d'un tableau à la 1ère ligne vide

Bonjour,
je souhaiterais remplir un tableau de la manière suivante: le programme cherche la 1ère ligne vide et ensuite la remplit avec les valerus renseignées par l'utilisateur dans une interface de saisie.
J'ai pour l'instant écrit cela:

While Range("A" & 2 + I & ":F" & 2 + I).Text <> ""
I = I + 1
Wend
With Range("A" & 2 + I & ":F" & 2 + I)
.Cells(1).Value = NomImmo
.Cells(2).Value = TypeImmo
.Cells(3).Value = DateDebut
.Cells(4).Value = BaseAmo
.Cells(5).Value = TypeAmo
.Cells(6).Value = Prorata
End With

Le problème est qu'il remplit toujours les données dans la 1ère ligne, qu'elle soit vide ou non.

Quelqu'un pourrait-il m'aider svp?
Merci d'avance