Sub FastDelete()
Dim debut As Date
Dim fin As Date
Dim Duree As Date
debut = Time
With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
On Error Resume Next
With Range(Range("A1"), Range("A65536").End(xlUp))
.AutoFilter 1, "<>Subj*"
.SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
With Application
.ScreenUpdating = True
.Calculation = CalcMode
.CutCopyMode = False
End With
fin = Time
Duree = fin - debut
MsgBox "Temps d'éxécution de la macro : " & Duree
End Sub