Function sommeconseq(zone As Range) As Long
Application.Volatile
For Each ele In zone
If ele < 0 Then
SommeTemp = SommeTemp + ele
If SommeTemp < SommeMax Then SommeMax = SommeTemp
Else
SommeTemp = 0
End If
Next ele
sommeconseq = SommeMax
End Function