Private Sub CommandButton1_Click()
ListBox2.Clear
k = 0
For I = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(I) = True Then
ListBox2.AddItem "" 'Colonne 1 Vide
ListBox2.List(k, 1) = ListBox1.List(I, 0) 'Colonne 2
ListBox2.List(k, 2) = ListBox1.List(I, 1) 'Colonne 3
ListBox2.List(k, 3) = ListBox1.List(I, 2) 'Colonne 4
ListBox2.List(k, 4) = ListBox1.List(I, 3) 'Colonne 5
k = k + 1
End If
Next I