Dim a 'mémorise la variable
Function SommeLettres&(t)
Dim avec$, sans$, i%
avec = "ŠŽŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝ"
sans = "SZYAAAAAACEEEEIIIIDNOOOOOUUUUY"
t = UCase(t) 'majuscules
For i = 1 To Len(avec)
t = Replace(t, Mid(avec, i, 1), Mid(sans, i, 1))
Next
If Not IsArray(a) Then 'bloc calculé une seule fois pour gagner du temps
ReDim a(1 To 255)
For i = 1 To 26
a(i + 64) = i
Next
End If
For i = 1 To Len(t)
SommeLettres = SommeLettres + a(Asc(Mid(t, i, 1)))
Next
End Function