Private Sub CommandButton1_Click()
Dim s, i&, t(), n&
s = [Liste] 'RowSource
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
ReDim Preserve t(n)
t(n) = s(i + 1, 1)
n = n + 1
End If
Next
Range("C2:C" & Rows.Count).ClearContents 'RAZ
If n Then [C2].Resize(n) = Application.Transpose(t)
End Sub