Private Sub UserForm_Initialize()
Set MonDico1 = CreateObject("Scripting.Dictionary")
For Each c In Range("a2:a14")
If Not MonDico1.Exists(c.Value) Then MonDico1.Add c.Value, c.Value
Next c
Set mondico2 = CreateObject("Scripting.Dictionary")
For Each c In Range("c2:c14")
If MonDico1.Exists(c.Value) Then
If Not mondico2.Exists(c.Value) Then mondico2.Add c.Value, c.Offset(0, 1).Value
End If
Next c
Me.ListBox1.List = mondico2.keys
Me.ListBox2.List = mondico2.items
End Sub