Private Sub CommandButton1_Click()
Dim DerLig
DerLig = Worksheets("Feuil1").Range("B" & Rows.Count).End(xlUp).Row
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
DerLig = DerLig + 1
Worksheets("Feuil1").Cells(DerLig, 2) = ListBox1.List(i)
End If
Next
End Sub