Bonjour
Utilises une Listbox
Mets sa propriété Multiselect = fmMultiSelectMulti
Mets sa propriété ListStyle = fmListStyleOption
Comme cela tu verras ce que tu as sélectionné
Peut-être pas la meilleure solution, mais cela fonctionne
Private Sub ListBox1_Change()
With Me.ListBox1
If .Selected(.ListIndex) = True Then
Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0) = .List(.ListIndex)
End If
End With
End Sub
Private Sub UserForm_Initialize()
Me.ListBox1.RowSource = "Liste! A1:A20"
End Sub