XL 2016 Suppression des doublons en bas de liste

[chris6999]

Bonjour

Je souhaiterais supprimer les lignes en doublon par rapport au critère de la colonne D.
J'ai trouvé pas mal de réponses pour conserver les lignes les plus récentes moi je veux conserver celles du haut (cellules vertes), c'est à dire les plus anciennes (cellules jaunes).

J'ai trouvé un code mais qui semblait correspondre mais qui ne fonctionne pas trop ..

Sub TEST()
For i = 1 To Range("D65535").End(xlUp).Row
If Range("D" & i).Value > "" Then
If Application.WorksheetFunction.CountIf(Range("D1" & Range("D65535").End(xlUp).Row), _
Range("D" & i).Value) > 1 Then Range("D" & i).EntireRow.Delete
End If
Next i
End Sub

Je mets mon fichier en PJ et vous remercie par avance pour vos conseils.

Bonne journée à tous

 

[pierrejean]

Bonjour

A tester:

Sub test1()
For i = Range("D65535").End(xlUp).Row To 1 Step -1
    If Range("D" & i).Value > "" Then
        If Application.WorksheetFunction.CountIf(Range("D1:D" & Range("D65535").End(xlUp).Row), _
                Range("D" & i).Value) > 1 Then Range("D" & i).EntireRow.Delete
       
    End If
Next
End Sub

 

[chris6999]

Bonjour et merci Pierrejean

Ton code fonctionne parfaitement.

Bonne journée