Private Sub CommandButton1_Click()
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
ListBox2.AddItem ListBox1.List(i)
End If
Next i
Dim x As Integer, Nb_L_ListBox As Integer
With Worksheets("Feuil2")
For x = 1 To Me.ListBox2.ListCount
.Cells(2, 1 + x) = ListBox2.List(x - 1, 0)
Next x
End With
UserForm15.Hide
Unload UserForm15
End Sub