GlobaLevel,
Ceci devrait le faire :
Pour I = 0 à Me.ListBox1.ListCount - 1
Si Me.ListBox1.Selected (i) = rectifier alors
myarray (0, 0) = ListBox1.List (I, 0)
myarray (0, 1) = ListBox1.List (I, 1)
myarray (0, 2) = ListBox1.List (I, 2)
Finir si
Après i
Patrick