Private Sub CommandButton1_Click()
Dim Sep As String 'séparateur
For K = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(K) = True Then
Ctrle.TextBox23.Value = Ctrle.TextBox23 & ListBox1.List(K, 0) & [B]Chr(10)[/B]
Ctrle.TextBox21.Value = Ctrle.TextBox21 & ListBox1.List(K, 1) & Chr(10)
Ctrle.TextBox22.Value = Ctrle.TextBox22 & ListBox1.List(K, 2) & Chr(10)
End If
Next
End Sub