Function Somme_Devise(plage As Range, Optional pepete As String) As Currency
Dim cumul As Currency, pattern, xcell
If IsMissing(pepete) Then pattern = "*" Else pattern = "*" & pepete & "*"
For Each xcell In plage
If IsNumeric(xcell) Then If xcell.Text Like pattern Then cumul = cumul + xcell
Next xcell
Somme_Devise = cumul
End Function