XL 2016 Suppression Ligne

Sub SupprimerLignesZeros()
Application.ScreenUpdating = False
With ActiveSheet.UsedRange.Offset(1)
    With .Columns(.Columns.Count + 1) 'colonne auxiliaire
        .FormulaR1C1 = "=1/SIGN(COUNTIF(R[-1]C1:R[-1]C[-1],0)+COUNTIF(RC1:RC[-1],0)+COUNTIF(R[1]C1:R[1]C[-1],0))"
        .Value = .Value 'supprime les formules
        .EntireRow.Sort .Cells, xlDescending, Header:=xlNo 'tri pour regrouper et placer les 1 en bas
        On Error Resume Next 'si aucune SpecialCell
        .SpecialCells(xlCellTypeConstants, 1).EntireRow.Delete 'supprime les lignes avec 1
        .EntireColumn.Delete 'supprime la colonne auxiliaire
    End With
    With .Parent.UsedRange: End With 'actualise les barres de défilement
End With
End Sub