XL 2016 Supprimer les doublons (avec 4 colonnes) et ne garder que la ligne la plus ancienne (colonne A)

   Sub Nettoyage()
    Application.ScreenUpdating = False
    TrParNom
    DL = Range("A1000000").End(xlUp).Row                    ' Dernière ligne
    With ActiveSheet.Range(Cells(2, "ZZ"), Cells(DL, "ZZ")) ' Colonne ZZ utilisée pour les filtrages
        .FormulaLocal = "=SI(NB.SI($C$1:C2;C2)=1;CAR(1);0)"
        .Value = .Value                                     'Supprime les formules
        .EntireRow.Sort .Cells, xlDescending                'Tri pour regrouper et accélérer
        On Error Resume Next                                'Si aucune SpecialCell
        .SpecialCells(xlCellTypeConstants, 1).EntireRow.Delete
        .EntireColumn.Delete                                'Supprime la colonne auxiliaire
    End With
    ActiveSheet.UsedRange       ' On redimensionne le curseur horizontal
    ActiveSheet.Columns.AutoFit ' On redimensionne largeur colonnes
    [A1].Select
    MsgBox "Nombre de lignes au début : " & DL - 1 & Chr(10) & _
            "Nombre de lignes au fin       : " & Range("A1000000").End(xlUp).Row - 1
End Sub
Sub TrParNom()
    DL = Range("A1000000").End(xlUp).Row
    Cells.Select
    ActiveSheet.Sort.SortFields.Clear
    ActiveSheet.Sort.SortFields.Add Key:=Range("C2:C" & DL) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveSheet.Sort.SortFields.Add Key:=Range("A2:A" & DL) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveSheet.Sort
        .SetRange Range("A1:ZZ" & DL)
        .Header = xlYes
        .MatchCase = False
        .Apply
    End With
    Range("A1").Select
End Sub

Sub SupprimerDoublons()
'
' Macro1 Macro
Dim TabData() As Variant

With ActiveSheet

    LastLine = .UsedRange.Rows.Count 'dernière ligne non vide de la colonne A
    'LastCol = .UsedRange.Columns.Count
    Set ZoneATrier = .UsedRange 'toute la base de donnée avec ligne d'entete
    
    .Sort.SortFields.Clear 'on supprime tout tri eventuel
    .Sort.SortFields.Add Key:=Range("B2:B" & LastLine), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 'on trie sur la colonne B
    .Sort.SortFields.Add Key:=Range("D2:D" & LastLine), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 'on trie sur la colonne D
    .Sort.SortFields.Add Key:=Range("H2:H" & LastLine), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 'on trie sur la colonne H
    .Sort.SortFields.Add Key:=Range("L2:L" & LastLine), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 'on trie sur la colonne L
    .Sort.SortFields.Add Key:=Range("A2:A" & LastLine), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 'on trie sur la colonne A
    With .Sort 'on applique le tri
        .SetRange ZoneATrier
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
     
    TabData = .UsedRange.Value 'on met tout dans un tablo vba
    For i = LBound(TabData, 1) + 1 To UBound(TabData, 1) - 1 'pour chaque ligne (hors entete)
        If TabData(i + 1, 2) = TabData(i, 2) And TabData(i + 1, 3) = TabData(i, 3) And TabData(i + 1, 8) = TabData(i, 8) And TabData(i + 1, 12) = TabData(i, 12) Then 'si on a un doublon
            For j = LBound(TabData, 2) To UBound(TabData, 2) 'on efface la ligne (le tri étant aussi sur la colonne A, celle qu'on efface est forcément postérieure
                TabData(i + 1, j) = ""
            Next j
        End If
    Next i
    .UsedRange.Clear 'on efface la feuille
    .Range("A1").Resize(UBound(TabData, 1), UBound(TabData, 2)) = TabData 'on colle le tableau
    .Sort.SortFields.Clear 'on reapplique un tri sur la colonne B ==> les lignes vides se retrouvent en bas
    .Sort.SortFields.Add Key:=Range("B2:B" & LastLine), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
     With .Sort
        .SetRange ZoneATrier
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With
End Sub