Et quelles sont elles ?
Je n'ai fait que reprendre votre macro et adaptée pour l'accélérer. Je n'y ai rien touché.
Sub SupprimeLignesC()
Dim T0, DL
T0 = Timer
Application.ScreenUpdating = False
DL = Range("A65500").End(xlUp).Row
With ActiveSheet.UsedRange
.Columns(5).EntireColumn.Insert
With Range(Cells(2, 5), Cells(DL, 5))
.FormulaR1C1 = "=IF(AND(COUNTA(RC1:RC2)>1,RC1=RC2),1,"""")"
.Value = .Value
.EntireRow.Sort .Cells, xlDescending
On Error Resume Next
.SpecialCells(xlCellTypeConstants, 1).EntireRow.Delete
.EntireColumn.Delete
End With
End With
With ActiveSheet.UsedRange: End With
[L1] = " Temps de traitement : " & Round(1000 * (Timer - T0)) & "ms."
End Sub
Sur mon PC avec 10 000 lignes : 120ms.
le code que vous proposez, ci-dessus, permet un traitement de 10000 lignes en 120 ms alors que ma macro modifiée par vos soins traite en 28 Sec. D'où mon intérêt.
les inputs souhaités : supprimer une ligne si les cellules des colonnes H et J sont égales à 1899