XL 2016 Suppression des doublons en bas de liste

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