Private Sub CommandButton1_Click()
Dim Sep As String 'séparateur
Ligne = Range("A65536").End(xlUp).Row + 1
For K = 0 To ListBox1.ListCount - 1
Sep = IIf(K = ListBox1.ListCount - 1, "", " - ") 'rien à la fin
If ListBox1.Selected(K) = True Then
Range("A" & Ligne) = Range("A" & Ligne) & ListBox1.List(K, 0) & Sep
Range("B" & Ligne) = Range("B" & Ligne) & ListBox1.List(K, 1) & Sep
Range("C" & Ligne) = Range("C" & Ligne) & ListBox1.List(K, 2) & Sep
End If
Next
End Sub