Sub Bouton7_Clic()
Dim I As Long, J As Long, K As Long, Positive As Boolean
I = 1
While Cells(J, 2) = ""
I = I + 1
Wend
J = I + 1
K = I
While Cells(J + 1, 2) <> ""
While Cells(J, 2) * Cells(J + 1, 2) > 0
J = J + 1
Wend
If Positive = False Then
Cells(K, 7) = "=sum(D" & I & ":D" & J & ")"
Positive = True
Else
Cells(K, 8) = "=sum(D" & I & ":D" & J & ")"
K = K + 1
Positive = False
End If
I = J
J = I + 1
Wend
End Sub