Hello world !
Je la jouerais plutôt comme ceci :
'Eviter le nom Somme, chargé de sens dans Excel
Public Sub MaSomme()
Dim Total As Long
Dim CL as Range
'Pour chaque cellule de la plage...
For Each CL in Range("d2:d65000")
'Sortie de la boucle si...
If CL = 0 And CL.Offset(0, 1) = 0 Then Exit For
'Accumulation pour un total général
Total = Total + CL.Offset(0, 1) - CL
'ou bien détail du calcul en H
CL.Offset(0, 4) = CL.Offset(0, 1) - CL
Next
'Affichage du total
Range("H1") = Total
End Sub
A+
LN