Somme de plusieurs cellules avec un saut

bonjour

Besoin d'aide, j'ai un tableau avec des lignes et des colonnes non défini, je souhaite supprimer les lignes qui ont la somme = 0, Ceci dit le calcule de la somme doit être de la 1 colonne jusqu’à la dernière avec un saut (pas);

ci-dessous le code que j'ai pu faire , qui doit être corriger et surtout simplifier

Sub exemple()

Dim somme

C = 2

While Sheets("Feuil1").Cells(C, 1) <> 0

DerniereColonne = ActiveSheet.UsedRange.Columns.Count

For i = 0 To DerniereColonne Step 2

somme = Application.WorksheetFunction.Sum(Range(Cells(C, i), Cells(C, DerniereColonne)))

If somme = 0 Then Cells(C, i).EntireRow.Delete

C = C + 1
Next i

Wend

End Sub

Salut Redalinho,

'
Dim Total
'
Application.ScreenUpdating = False
'quand on veut supprimer des lignes, on part de bas en haut!
For x = Range("C" & Rows.Count).End(xlUp).Row To 2 Step -1
    Total = 0
    For y = 3 To Cells(x, Columns.Count).End(xlToLeft).Column Step 2
        Total = Total + Cells(x, y)
    Next
    If Total = 0 Then Rows(x).Delete shift:=xlUp
Next
'
Application.ScreenUpdating = True
'

A+

bonjour curulis57

Impeccable, simple et efficace

merci