Dim f
Private Sub UserForm_Initialize()
Set f = Sheets("bd")
Me.ListBox1.List = f.Range("A2:D" & f.[B65000].End(xlUp).Row).Value
Set d = CreateObject("Scripting.Dictionary")
j = 0
Do While j < Me.ListBox1.ListCount
tmp = ListBox1.List(j, 0) & ListBox1.List(j, 1)
If Not d.exists(tmp) Then
d(tmp) = ""
j = j + 1
Else
Me.ListBox1.RemoveItem j
End If
Loop
End Sub