Suppression de ligne en double sur 2 tableaux

Sub COMPARATIF()
Dim O1 As Worksheet
Dim O2 As Worksheet
Dim TC1 As Variant
Dim TC2 As Variant
Dim i As Long
Dim J As Long
Dim TEST As Boolean
Dim DEST As Range
Dim TL() As Variant
Dim T1 As String
Dim T2 As String
Dim K As Long


Set O1 = Sheets(1)
Set O2 = Sheets(2)
Set O3 = Sheets(3)

x = 1
TC1 = O1.Range("A2:L" & O1.Cells(Application.Rows.Count, 1).End(xlUp).Row)
TC2 = O2.Range("A2:L" & O2.Cells(Application.Rows.Count, 1).End(xlUp).Row)
For i = 2 To UBound(TC1, 1)
    TEST = False
    T1 = CStr(TC1(i, 1)) & "/" & CStr(TC1(i, 2)) & "/" & CStr(TC1(i, 3)) & "/" & CStr(TC1(i, 4)) & "/" & CStr(TC1(i, 5)) & "/" & CStr(TC1(i, 6)) & "/" & CStr(TC1(i, 7)) & "/" & CStr(TC1(i, 8)) & "/" & CStr(TC1(i, 9)) & "/" & CStr(TC1(i, 10)) & "/" & CStr(TC1(i, 11)) & "/" & CStr(TC1(i, 12))
    For J = 2 To UBound(TC2, 1)
    T2 = CStr(TC2(J, 1)) & "/" & CStr(TC2(J, 2)) & "/" & CStr(TC2(J, 3)) & "/" & CStr(TC2(J, 4)) & "/" & CStr(TC2(J, 5)) & "/" & CStr(TC2(J, 6)) & "/" & CStr(TC2(J, 7)) & "/" & CStr(TC2(J, 8)) & "/" & CStr(TC2(J, 9)) & "/" & CStr(TC2(J, 10)) & "/" & CStr(TC2(J, 11)) & "/" & CStr(TC2(J, 12))
        If T1 = T2 Then TEST = True: Exit For
    Next J
    If TEST = False Then
    x = x + 1
        For K = 1 To 12
        Sheets(1).Cells(i, K).Copy Sheets(3).Cells(x, K)
        Next K
    End If
Next i

End Sub

Option Explicit
Option Base 1
'-------
Sub indiquer_différences()
Dim Derlig  As Integer, T_in, D_in As Object, Cptr As Integer, Ref As String
Dim T_in1, T_out, Cpx As Integer, Col As Byte

Application.ScreenUpdating = False 'fige l'écran: confort et rapidité
'-----------------------------nettoyage
Sheets("différence").Range("A2:L10000").Clear

'-----------------------------mémorisation feuille N en Ram
With Sheets("Tableau N")
    Derlig = .Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
    T_in = .Range("D2:G" & Derlig)
    'concaténation police & cotisation dans une collection (dictionary)
    Set D_in = CreateObject("scripting.dictionary")
    For Cptr = 1 To UBound(T_in)
        Ref = T_in(Cptr, 1) & " " & T_in(Cptr, 4)
        If Not D_in.exists(Ref) Then: D_in.Add Ref, ""
     Next
End With

'--------------------------comparaison de la collection avec  concaténation _
police & cotisatin dans feuille n+1
With Sheets("Tableau N+1")
    ReDim T_out(12, 1) 'mémorisation en Ram
        Derlig = .Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
    T_in1 = .Range("A2:L" & Derlig)
    For Cptr = 1 To UBound(T_in1)
        Ref = T_in1(Cptr, 4) & " " & T_in1(Cptr, 7)
        'si la concaténation feuille n=1 n'existe pas dans la collection feuil n
        If Not D_in.exists(Ref) Then
            Cpx = Cpx + 1
            ' inscription des données colonne a à L feuille n+1 dans _
            variables tableau dynamique
            ReDim Preserve T_out(12, Cpx)
            For Col = 1 To 12
                T_out(Col, Cpx) = T_in1(Cptr, Col)
            Next
        End If
    Next
End With

'-----------------------------------------restitution
With Sheets("Différence")
    .Range("A2").Resize(Cpx, 12) = Application.Transpose(T_out)
     With .Range("A2:L" & Cpx + 1)
        .Borders.Weight = xlThin 'quadrillage
        .Font.Name = "Verdana"  'police
        .Font.Size = 8
    End With
    .Activate
End With
End Sub