recuperer doublons

Sub test()
Dim i%, k%
Dim bool1 As Boolean
Dim tablo1(0 To 100)
Dim tablo2(0 To 100)
Dim tablo3(0 To 100)
Dim cpt_tablo1%, cpt_tablo2%, cpt_tablo3%

Range("D4:F100").ClearContents
For i = 4 To Range("A65536").End(xlUp).Row
    bool1 = False
    For k = 4 To Range("B65536").End(xlUp).Row
        If Cells(i, 1).Value = Cells(k, 2).Value Then
            bool1 = True
            Exit For
        End If
    Next k
    If bool1 = True Then
        tablo1(cpt_tablo1) = Cells(i, 1).Value
        cpt_tablo1 = cpt_tablo1 + 1
    End If
    If bool1 = False Then
        tablo2(cpt_tablo2) = Cells(i, 1).Value
        cpt_tablo2 = cpt_tablo2 + 1
    End If
Next i
For k = 4 To Range("B65536").End(xlUp).Row
    bool1 = False
    For i = 4 To Range("A65536").End(xlUp).Row
        If Cells(k, 2).Value = Cells(i, 1).Value Then
            bool1 = True
            Exit For
        End If
    Next i
    If bool1 = False Then
        tablo3(cpt_tablo3) = Cells(k, 2).Value
        cpt_tablo3 = cpt_tablo3 + 1
    End If
Next k
For p = 0 To UBound(tablo1)
    If tablo1(p) = "" Then Exit For
    Cells(Range("D65536").End(xlUp).Row + 1, 4).Value = tablo1(p)
Next p
For p = 0 To UBound(tablo2)
    If tablo2(p) = "" Then Exit For
    Cells(Range("E65536").End(xlUp).Row + 1, 5).Value = tablo2(p)
Next p
For p = 0 To UBound(tablo3)
    If tablo3(p) = "" Then Exit For
    Cells(Range("F65536").End(xlUp).Row + 1, 6).Value = tablo3(p)
Next p
End Sub