Function Calcul(base As Range, plage As Range)
Dim c As Range, x$, i%, v2 As Variant, v1 As Variant
For Each c In plage
x = Chr(1) & c
For i = 2 To Len(x)
v2 = Application.VLookup(Mid(x, i, 1), base, 2, 0) 'RECHERCHEV
If IsNumeric(v2) Then
v1 = Mid(x, i - 1, 1)
If Not IsNumeric(v1) Then v1 = 1 'si aucun nombre devant
Calcul = Calcul + v1 * v2
End If
Next i, c
End Function