XL 2010 Supprimer les lignes en doubles (multi critères)

Sub Supp1sur2()
Application.ScreenUpdating = False

Dim TabData() As Variant

With Sheets("Feuil1").ListObjects(1) 'avec la table
    TabData = .DataBodyRange.Value 'on met les données (hors entete) dans le tablo vba
    For i = LBound(TabData, 1) To UBound(TabData, 1) Step 2 'pour chaque ligne /2
        For j = LBound(TabData, 2) To UBound(TabData, 2) 'pour chaque colonne
            TabData(i, j) = "" 'on vide la ligne entière
        Next j
    Next i
    .DataBodyRange = TabData 'on recolle le résutat dans la table
   
    .Range.AutoFilter Field:=1, Criteria1:="=" 'on filtre sur la colonne 1, cellules vides
    Application.DisplayAlerts = False 'désactive message alerte
    .DataBodyRange.Delete 'on supprime les lignes filtrées (vides)
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1 'on supprime le filtre pour réafficher les données restantes
    Application.DisplayAlerts = True 'on reactive les messages d'alerte
End With

Application.ScreenUpdating = True

End Sub

Sub Supp1sur2()
Application.ScreenUpdating = False

Dim TabData() As Variant

With Sheets("Feuil1").ListObjects(1) 'avec la table

    .Sort.SortFields.Clear
    .Sort.SortFields.Add2 Key:=Range("Tableau1[N]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    .Sort.SortFields.Add2 Key:=Range("Tableau1[C2]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With .Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    
    TabData = .DataBodyRange.Value 'on met les données (hors entete) dans le tablo vba
    For i = LBound(TabData, 1) To UBound(TabData, 1) Step 2 'pour chaque ligne /2
        For j = LBound(TabData, 2) To UBound(TabData, 2) 'pour chaque colonne
            TabData(i, j) = "" 'on vide la ligne entière
        Next j
    Next i
    .DataBodyRange = TabData 'on recolle le résutat dans la table
  
    .Range.AutoFilter Field:=1, Criteria1:="=" 'on filtre sur la colonne 1, cellules vides
    Application.DisplayAlerts = False 'désactive message alerte
    .DataBodyRange.Delete 'on supprime les lignes filtrées (vides)
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1 'on supprime le filtre pour réafficher les données restantes
    Application.DisplayAlerts = True 'on reactive les messages d'alerte
End With

Application.ScreenUpdating = True

End Sub

Option Explicit
Sub testsurColonneD()
' macro qui va permettre de faire une double recherche pour supprimer les lignes inutiles
' Pour expliquer en détail pour un montant dans les colonnes intitulées D (Colonne C2 non prise en compte) il y a environ 50%
' de la TVA qui vient s'ajouter sauf que je n'en ai pas besoin
' Je parlais de double critère car en effet il faut un double doublon pour effectuer cette tâche de
' suppression : sur la colonne N et P de ce fait s'il y a un doublon sur la colonne N et P alors il
' faut supprimer la ligne la plus petite (qui équivaut à 50% de la TVA environ)
' Soit :
' A ) Identification de la ligne avec couleur jaune
' B ) Puis suppression de cette ligne
'
Application.ScreenUpdating = False
    Dim t(0 To 1) As Variant
    Dim a() As Variant
    Dim i, j As Long
        t(0) = Range(Cells(1, 1), Cells(Cells(65536, 1).End(xlUp).Row, Cells(1, Cells.Columns.Count).End(xlToLeft).Column))
    Set t(1) = Range(Cells(1, 1), Cells(Cells(65536, 1).End(xlUp).Row, Cells(1, Cells.Columns.Count).End(xlToLeft).Column))
    'ReDim preservet(LBound(t(0), 1) To UBound(t(0), 1), LBound(t(0), 2) To UBound(t(0), 2) + 1)
    '  A) Identification de la ligne avec couleur jaune
    For i = LBound(t(0), 1) + 1 To UBound(t(0), 1)
        For j = i + 1 To UBound(t(0), 1)
            If t(0)(i, 7) & t(0)(i, 10) = t(0)(j, 7) & t(0)(j, 10) Then
                a = Array(t(0)(i, 8), t(0)(j, 8))
                    If Application.Min(a) = t(0)(i, 8) Then
                        'MsgBox t(0)(i, 8)
                        't(0)(i, UBound(t(0), 2)) = "x"
                        Range(t(1).Cells(i, 1), t(1).Cells(i, UBound(t(0), 2))).Interior.Color = 65535
                    ElseIf Application.Min(a) = t(0)(j, 8) Then
                        'MsgBox t(0)(j, 8)
                        't(0)(j, UBound(t(0), 2)) = "x"
                        Range(t(1).Cells(j, 1), t(1).Cells(j, UBound(t(0), 2))).Interior.Color = 65535
                    End If
                    Erase a
            End If
        Next j
    Next i
        i = Empty: j = Empty
' B ) Puis suppression de cette ligne
        For i = t(1).Rows.Count To 1 Step -1
            If Range(t(1).Cells(i, 1), t(1).Cells(i, UBound(t(0), 2))).Interior.Color = 65535 Then
                Range(t(1).Cells(i, 1), t(1).Cells(i, UBound(t(0), 2))).Delete
            End If
        Next i
        Erase t
        i = Empty: j = Empty
Application.ScreenUpdating = True
End Sub