Déjà, c'est pas vraiment VB, mais le visual basic qui est intégré dans microsoft excel 2003.
J'ai ca comme code:
Private Sub CommandButton1_Click()
Dim num As Integer
Dim lrank As String
Dim val As String
num = 0
do {
lrank = "E" & num
Range(lrank).Select
val = ActiveCell.Value
num = num + 1
}
while (val <>'')
End Sub