Supprimer doublons

Bonjour le forum,

J'ai ce code qui fonctionne mais il me ralentit considérablement ma macro. Est- il possible de l'améliorer .

'Supprime le doublon le + ancien
    For L = Sheets("Données").Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
    For j = Sheets("Données").Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
        If Sheets("Données").Cells(j, 1) = Sheets("Données").Cells(L, 1) Then
        If Sheets("Données").Cells(j, 4) < Sheets("Données").Cells(L, 4) Then
        Sheets("Données").Cells(j, 1).EntireRow.Delete
    End If: End If
    Next j: Next L

Cordialement,

Benoist

bonjour,

une proposition

'Supprime le doublon le + ancien
    L = DerLigne
    For j = Sheets("Données").Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
        If Sheets("Données").Cells(j, 1) = Sheets("Données").Cells(L, 1) Then
        If Sheets("Données").Cells(j, 4) < Sheets("Données").Cells(L, 4) Then
        Sheets("Données").Cells(j, 1).EntireRow.Delete
        'exit for 's'il n'y a qu'un seul doublon, tu peux activer cette instruction
    End If: End If
    Next j
    
Rechercher des sujets similaires à "supprimer doublons"