Re : supprimer doublon dans une BD selon date
Sub es()
Dim i As Long, j As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
For j = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
If Cells(j, 2) = Cells(i, 2) Then
If Cells(j, 6) < Cells(i, 6) Then...