Dim i As Long, m As Object, t(), x As Long
Private Sub CommandButton1_Click()
Set m = CreateObject("scripting.dictionary")
t = Feuil2.Range("c2:c" & Cells(Rows.Count, 3).End(3).Row).Value
For i = 1 To UBound(t): m(t(i, 1)) = t(i, 1): Next i
For i = ListBox1.ListCount - 1 To 0 Step -1
If m.Exists(ListBox1.List(i)) Then ListBox1.RemoveItem i
Next i
End Sub
Private Sub UserForm_Initialize()
ListBox1.List = Feuil1.Range("a2:d" & Feuil1.Cells(Rows.Count, 1).End(3).Row).Value
ListBox2.List = Feuil2.Range("a2:d" & Feuil2.Cells(Rows.Count, 1).End(3).Row).Value
End Sub