Private Sub CommandButton1_Click()
Set d = CreateObject("scripting.dictionary")
Dim i As Long, w As Long
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
d(.List(i, 0)) = ""
.Selected(i) = False
End If
Next i
End With
For Each c In d.keys
MsgBox c
Next c
End Sub
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 4
Me.ListBox1.MultiSelect = fmMultiSelectMulti
With Sheets("BDD")
ListBox1.List = .Range("A2:C" & .Range("A65536").End(xlUp).Row).Value
End With
End Sub