Comparaison de 2 colonnes Recherche d' equivalence

Sub newtest()
    Dim Plage As Range, c As Range
    Sheets(3).Select
    Sheets(3).Range("A2").Select
    Set Plage = Sheets(1).Range("A1", Sheets(1).Range("A65536").End(xlUp))
    i = 0
    For Each c In Plage
    i = i + 1
        If WorksheetFunction.CountIf(Plage, Sheets(2).Cells(i, 1)) <> 0 Then
            ActiveCell.Value = Sheets(2).Cells(i, 1).Value
            ActiveCell.Offset(1, 0).Select
        End If
    Next c
    Sheets(3).Range("b2").Select
Set Plage2 = Sheets(1).Range("A1", Sheets(1).Range("A65536").End(xlUp))
    i = 0
    For Each c In Plage2
    i = i + 1
        If WorksheetFunction.CountIf(Plage2, Sheets(2).Cells(i, 1)) = 0 Then
            ActiveCell.Value = Sheets(2).Cells(i, 1).Value
            ActiveCell.Offset(1, 0).Select
        End If
    Next c
End Sub