Private Sub CommandButton1_Click()
Dim i As Long, Lig As Long
Lig = 2
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
Sheets("Feuil2").Range("C" & Lig).Value = ListBox1.List(i, 0)
Lig = Lig + 1
End If
Next i
Lig = 8
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then
Sheets("Feuil2").Range("C" & Lig).Value = ListBox2.List(i, 0)
Lig = Lig + 1
End If
Next i
End Sub