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...