Supprimer colonne si somme = 0

Sub test()
With Sheets("Feuil1")
    .Range("$C$26:$H$26").FormulaLocal = "=LN(SOMME(C$11:C$25))"
    With .Rows("26:26")
        .Cells.SpecialCells(-4123, 16).EntireColumn.Delete
        .Clear
    End With
End With
End Sub

Sub a()
Dim i&
Application.ScreenUpdating = False
For i = 3 To Rows("10:10").SpecialCells(xlCellTypeConstants, 2).Columns.Count
If Application.Sum(Columns(i)) = 0 Then
Columns(i).EntireColumn.Delete
End If
Next
End Sub

For i = Rows("10:10").SpecialCells(xlCellTypeConstants, 2).Columns.Count To 3 Step -1

Sub test()
Dim Lstrw&
With Sheets("Feuil1")
    Lstrw = .Cells(.Rows.Count, 3).End(3).Row + 1
    .Range("$C$" & Lstrw & ":$H$" & Lstrw).FormulaLocal = "=LN(SOMME(C$11:C$" & Lstrw - 1 & "))"
    With .Rows(Lstrw)
        .Cells.SpecialCells(-4123, 16).EntireColumn.Delete
        .Clear
    End With
End With
End Sub

Nvonglet.Select
Dim k As Long
With Nvonglet
    For k = Rows("10:10").SpecialCells(xlCellTypeConstants, 2).Columns.Count To 5 Step -1
        If Application.Sum(Columns(k)) = 0 Then Columns(k).EntireColumn.Delete

    Next k
End With

  For k = 2 To [T].Columns.Count
     If Application.Sum([T].Columns(k)) = 0 Then [T].Columns(k).Delete
  Next