Private Sub Eduraiss()
Dim DL1 As Long, DL2 As Long, Dico, i As Long, WS1 As Worksheet, T1, T2
Set WS1 = Worksheets("Feuil1")
Set Dico = CreateObject("Scripting.Dictionary")
DL1 = WS1.Range("A" & Rows.Count).End(xlUp).Row
DL2 = WS1.Range("B" & Rows.Count).End(xlUp).Row
T1 = WS1.Range("A2:A" & DL1)
T2 = WS1.Range("B2:B" & DL2)
For i = LBound(T2) To UBound(T2)
Dico(T2(i, 1)) = ""
Next
For i = LBound(T1) To UBound(T1)
If Dico.Exists(T1(i, 1)) Then Dico.Remove (T1(i, 1))
Next
If Dico.Count > 0 Then WS1.Range("C2").Resize(Dico.Count, 1) = Application.Transpose(Dico.keys)
End Sub