XL 2019 Comparer deux listes en VBA

Sub Tri()
Dim DerLig As Integer, Lc As Integer, L As Integer
DerLig = Range("B65500").End(xlUp).Row
Range("C2:C1000").ClearContents
Lc = 2
For L = 2 To DerLig
    If Application.CountIf(Range("A:A"), Cells(L, "B")) = 0 Then
        Cells(Lc, "C") = Cells(L, "B")
        Lc = Lc + 1
    End If
Next L
End Sub

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