Cacher des lignes si valeur 0 et insérer calcul en pied de page

Sub Bon_de_commande_créer()
Dim nom As Object
    With Application
        .ScreenUpdating = 0
        .Calculation = xlCalculationManual
    End With

    Sheets("BDC fournisseur").Select
    Sheets("BDC fournisseur").Copy After:=Sheets(2)
    ActiveSheet.Name = Range("g8").Value
    ActiveSheet.Tab.ColorIndex = 4
    
    For n = Range("h65536").End(xlUp).Row To 18 Step -1
        If Range("h" & n) = 0 Or Range("h" & n) = "" Then Rows(n).Delete
    Next n
    
    Range("az1") = "Montant HT"
    Range("az2") = "Valeur TVA"
    Range("az3") = "Montant TTC"
    Range("ba1") = "=SUM(total)"
    Range("ba2") = "19.6"
    Range("ba2").NumberFormat = "0.00"
    Range("ba3") = "=R[-2]C+(R[-2]C*(R[-1]C/100))"
    Range("BA1,BA3").Style = "Currency"
    
    With Range("AZ1:BA3")
        .Value = Range("AZ1:BA3").Value
        .Font.Bold = 1
        .Font.Size = 12
        .Borders.Weight = 3
        .Borders(xlInsideVertical).LineStyle = 0
        .Borders(xlInsideHorizontal).LineStyle = 0
        .Cut Destination:=Range("g65536").End(xlUp)(3)
    End With
    
    With Range("B18").CurrentRegion
        .Borders(xlEdgeLeft).Weight = xlMedium
        .Borders(xlEdgeTop).Weight = xlMedium
        .Borders(xlEdgeBottom).Weight = xlMedium
        .Borders(xlEdgeRight).Weight = xlMedium
        .Borders(xlInsideVertical).Weight = xlThin
        .Borders(xlInsideHorizontal).Weight = xlThin
    End With
    
    Range("b65536").End(xlUp)(2).EntireRow.Delete
    ActiveSheet.DrawingObjects.Delete
    
    For Each nom In ActiveSheet.Names
        nom.Delete
    Next
    
    Sheets("BDC fournisseur").Range("g8").ClearContents
        
    With Application
        .ScreenUpdating = 1
        .Calculation = xlCalculationAutomatic
    End With
End Sub