Sub Epurer()
Application.ScreenUpdating = False
With [A49:C89] 'à adapter
.Columns(4).Insert xlToRight 'insère une colonne auxiliaire
.Columns(4) = "=1/AND(RC[-3]<>0,RC[-1]<>0)" 'critère
.Columns(4) = .Columns(4).Value 'suppri>me les formules
.Resize(, 4).Sort .Columns(4), xlAscending, Header:=xlNo 'tri pour regrouper et accélérer
On Error Resume Next 'si aucune SpecialCell
Intersect(.Columns(4).SpecialCells(xlCellTypeConstants, 16).EntireRow, .Resize(, 4)).Delete xlUp
.Columns(4).Delete xlToLeft 'supprime la colonne auxiliaire
End With
End Sub