Function CREDIT#(Liste$)
Dim s, i%
Application.Volatile
s = Split(Liste, "+")
With Sheets("Base de données")
For i = 0 To UBound(s)
CREDIT = CREDIT + Application.SumIf(.[B:B], s(i), .[C:C]) _
- Application.SumIf(.[B:B], s(i), .[D:D])
Next
End With
End Function