For Each cel In plage 'boucle 1 : sur toutes les cellules de la plage
[COLOR=lime] ListBox1.AddItem 'ajoute un élément à la listbox
[/COLOR] For y =[COLOR=seagreen] 0 To 5[/COLOR] 'boucle 2 : sur 6 éléments
[COLOR=red] 'ListBox1.AddItem 'ajoute un élément à la listbox
[/COLOR] ListBox1.Column(y, x) = cel.Offset(0, y).Value 'ajoute l'élément par colonne
Next y 'prochain élément de la boucle 2
x = x + 1 'redéfinit la variable x
Next cel 'prochaine cellule de plage (boucle 1)