Aide pour addition complexe Excel

Function somme(ByVal s As String) As Long
Dim p As Long
Dim x As Long
If s = "" Then
  somme = 0
Else
  p = InStr(1, s, "+")
  If p > 0 Then
    x = Round(Val(Left(s, p - 1)))
    somme = somme(Right(s, Len(s) - p)) + x
  Else
    somme = Val(s)
  End If
End If
End Function

Function total(x)
Dim s As Long
Dim c As Range
s = 0
For Each c In x
  s = s + somme(c)
Next c
total = s
End Function

=SI(ESTVIDE(B2);0;NBCAR(B2)-NBCAR((SUBSTITUE(B2;"+";"")))+1)

Function somm(ByVal s As String) As Long
Dim p As Long
Dim x As Long
If s = "" Then
  somm = 0
Else
  p = InStr(1, s, "+")
  If p > 0 Then
    x = Round(Val(Left(s, p - 1)))
    somm = somm(Right(s, Len(s) - p)) + x
  Else
    somm = Val(s)
  End If
End If
End Function

Function tota(x)
Dim s As Long
Dim c As Range
s = 0
For Each c In x
  s = s + somm(c)
Next c
tota = s
End Function