suppression Listbox après test

Bonjour le Forum,
J'aimerais un coup de pouce de votre part.
J'ai 2 listboxs et je veux enlever les lignes de la listbox2 pour lesquelles un élément dans une colonne est présente dans la listbox1
Merci de votre aide
Dim i, j As Byte
Dim Item As Variant
With Me.LB2

For i = 0 To Me.LB1.ListCount - 1
For j = 0 To Me.LB2.ListCount - 1
If Me.LB1.Column(4, i) = Me.LB2.Column(1, j) Then
' .RemoveItem Item.Me.LB2.List(1, j)
Me.LB2.RemoveItem (Me.LB2(j))
End If
Next j
Next i
end with

Cliquez pour agrandir...