macro pour supprimer des lignes

[sg13]

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

 

[Dranreb]

Re : macro pour supprimer des lignes

Bonjour.

For i = 12 To 6 Step -1
   If Application.WorksheetFunction.Sum(Range("C:F").Rows(i)) = 0 Then Rows(i).Delete
   Next i

À +

 

[sg13]

Re : macro pour supprimer des lignes

Top ! Merci et bonne journée