Supprimer ligne doublon avec une condition

Bonjour le forum,

j'ai une liste dans une feuille excel avec plein de doublon que je ne desire pas . J'ai mis ce code qui fonctionne très bien,

Sub supprimeDoublons()

MaCellule = ("D2")
Range(MaCellule).Select
ActiveCell.CurrentRegion.Sort Key1:=Range(MaCellule), Order1:=xlAscending, Header:=xlYes
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select

While ActiveCell <> ""
If ActiveCell = donnee1 Then
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
Else
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub

mais je voudrais rajouter que si je trouve des doublons, je garde la ligne qui a des données dans la colonne L.
Je m'explique :
Je contrôle en fonction de la colonne D et si je trouve 3 lignes en doublons il garde celle qui a les données dans la colonne L et là je ne sais pas faire

merci d'avance

Bobjazz