Function comptelesLégumes(Z As Range, L As String)
Application.Volatile
Dim X, Som
X = Z.Value
For t = LBound(X, 1) To UBound(X, 1)
For u = LBound(X, 2) To UBound(X, 2)
If InStr(X(t, u), L) > 0 Then Som = Som + Val(Split(X(t, u), L)(0))
Next u
Next t
comptelesLégumes = Som
End Function