Function CCval(xPlage As Range, xref)
If xref = "" Then CCval = "": Exit Function
Dim c As Range, i%
For Each c In xPlage
i = InStr(c, xref)
If i Then
For i = i - 1 To 1 Step -1
If Not IsNumeric(Mid(c, i, 1)) Then Exit For
Next i
CCval = CCval + Val(Mid(c, i + 1))
End If
Next c
End Function