Const s = "benoit x 1, eric x 1, nathalie x 1, marc x 15"
Sub test_Formule()
f = _
"=SUM(IFERROR((MID(SUBSTITUTE(SUBSTITUTE(A1,"","",""""),"" "",REPT("" "",LEN(A1))),1+LEN(A1)*(ROW(A$1:INDEX(A:A,LEN(A1)-LEN(SUBSTITUTE(A1,"" "",""""))+(A1<>"""")))-1),LEN(A1)))+0,0))"
[A1] = s
[B1].FormulaArray = f
End Sub