Excel VBA + listbox

Bonjour,

Voilà je voudrais arriver a compter le nombre d'items dans une list box avec une variable (i) pour ensuite les ajouter dans une feuille excel.

Je pensais a une structure du genre :

Dim ligne As Integer
Dim i As Integer

i = 0
ligne = 1

While ListBox.Value = " "
i = i + 1
Wend

Sheets(1).Select

Cells(ligne, 1) = ListBox1(i).Value

Mais mon (i) reste a 0 dans "Cells(ligne, 1) = ListBox1(i).Value"