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