Function Poids#(t$)
Dim a$, b$, i%, code As Byte
t = UCase(t) 'majuscules
'---supression des accents---
a = "ÀÁÂÃÄÅÒÓÔÕÖØÈÉÊËÌÍÎÏÙÚÛÜŸÑÇ"
b = "AAAAAAOOOOOOEEEEIIIIUUUUYNC"
For i = 1 To Len(a)
t = Replace(t, Mid(a, i, 1), Mid(b, i, 1))
Next
'---pesage---
For i = 1 To Len(t)
code = Asc(Mid(t, i, 1))
If code > 64 And code < 91 Then Poids = Poids + (code - 64) / 10
If code = 32 Then Poids = Poids + 0.1
Next
End Function