macro pour supprimer des lignes

Bonsoir ! et Help !
J'ai essayé de faire la macro ci-dessous dont le but est de supprimer les lignes d'une feuille si la somme d'une plage de cellules de cette ligne est zéro.
MAis bien sur ça ne marche pas...
MErci de votre aide

Dim Mavariable As Integer
For i = 6 To 12
Mavariable = Application.WorksheetFunction.Sum(Range("Ci:Fi"))
If Mavariable = 0 Then Range("ai").Select
Worksheet.Rows("i").Select
Selection.Delete Shift:=xlUp
Next i