Boucle For Each

VBA
4

donc reculer de la ligne « derligne » vers ligne « 2 »

     For i = derligne To 2 Step -1           'reculer de la dernièe ligne vers ligne 2
          Set c = Cells(i, 9)                'avec cette cellule dans la colonne I
          c.FormulaR1C1 = "=sum(RC[-1],RC[-2])"
          If c.Value = 0 Then
               c.EntireRow.Delete
          End If
     Next i