Dim f
Private Sub UserForm_Initialize()
Set f = Sheets("feuil1")
Set Rng = f.Range("F2:F" & f.[F65000].End(xlUp).Row)
Me.ListBox1.List = Rng.Value
Me.ListBox1.MultiSelect = fmMultiSelectMulti
End Sub
Private Sub ListBox1_Change()
temp = ""
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) Then temp = temp & Me.ListBox1.List(i)
Next i
f.[a1] = temp
End Sub