XL 2016 Suppression de lignes si toutes les cellules = 0

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("M14").FormulaR1C1 = "To Sup"
    Range("M15").FormulaR1C1 = "=COUNT(RC[-10]:RC[-1])" 'formule pour detecter les lignes vides
   
    Range("M15:M78").FillDown 'recopie de la formule
    Range("A14:M14").AutoFilter 'active le filtre
    ActiveSheet.Range("$A$14:$M$83").AutoFilter Field:=13, Criteria1:="0" 'n'affiche que les lignes vides
     ActiveSheet.Range("$M$14:$M$83").SpecialCells(xlCellTypeVisible).EntireRow.Delete 'supprime les lignes affichées (donc vides)
     'Range("A14:M14").AutoFilter
     Range("M14:M78").ClearContents 'on efface la colonne M
End Sub

Sub Macro1()
'
' Macro1 Macro
'
For Each ws In Worksheets 'pour chaque feuille du classeur
    If ws.Name <> "NomFeuille" Then 'remplacer "NomFeuille" par le nom de la feuille à ne pas traiter, s'il y a
        With ws 'avec la feuille
            LastCol = .UsedRange.SpecialCells(xlLastCell).Column + 1 'récupère la dernière colonne non vide +1
            .Cells(14, LastCol).FormulaR1C1 = "To Sup"
            .Cells(15, LastCol).FormulaR1C1 = "=COUNT(RC[-10]:RC[-1])" 'formule pour detecter les lignes vides
            .Range(.Cells(15, LastCol), .Cells(78, LastCol)).FillDown 'recopie de la formule jusqu'en ligne 78
            .Rows("14:14").AutoFilter 'active le filtre sur la ligne 14
            .UsedRange.AutoFilter Field:=13, Criteria1:="0" 'n'affiche que les lignes vides sur la 13eme colonne de la zone filtrée
            .UsedRange.SpecialCells(xlCellTypeVisible).EntireRow.Delete 'supprime les lignes affichées (donc vides)
     
            .Columns(LastCol).ClearContents 'on efface la dernière colonne qui a servi pour le calcul
        End With
    End If
Next ws
End Sub

Sub a() 
Dim ws As Worksheet, l&, c& 
Application.ScreenUpdating = False 
For Each ws In Worksheets 
c = ws.Cells(2, Columns.Count).End(xlToLeft).Column + 1 
l = ws.Cells(Rows.Count, 1).End(xlUp).Row - 1 
With ws.Cells(3, c).Resize(l) 
.Value = "=1/(COUNTA(C3:L3))" 
.SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete 
.ClearContents 
End With 
Next 
End Sub