Comparer deux listes de données excel

Sub comparer()
Dim ligA As Long, ligB As Long, cptr As Long
Dim valeur
Dim coll As New Collection

ligA = Range("A65536").End(xlUp).Row
ligB = Range("B65536").End(xlUp).Row

For cptr = 1 To ligA
    If Application.CountIf(Range("B:B"), Cells(cptr, 1)) = 0 Then
        valeur = Cells(cptr, 1).Value2
        coll.Add valeur
    End If
Next

For cptr = 1 To ligB
    If Application.CountIf(Range("A:A"), Cells(cptr, 2)) = 0 Then
        valeur = Cells(cptr, 2).Value2
        coll.Add valeur
    End If
Next
Application.ScreenUpdating = False

For cptr = 1 To coll.Count
    Cells(cptr, 3) = coll(cptr)
Next
Set coll = Nothing
End Sub