Function Encode(ATraduire As String) As String
Dim I As Integer, Lettre As String, J As Integer
Application.Volatile
For I = 1 To Len(ATraduire)
J = AscW(Mid(ATraduire, I, 1))
Select Case J
Case 225, 7841, 7843, 7847, 7853
Lettre = "a"
Case 272
Lettre = "D"
Case 273
Lettre = "d"
Case 7869, 7871, 7873, 7875, 7879
Lettre = "e"
Case 237, 7883
Lettre = "i"
Case 243, 417, 7885, 7893, 7895, 7897, 7903, 7907
Lettre = "o"
Case 250, 432, 7889, 7909, 7911, 7915, 7917, 7921
Lettre = "u"
Case Else
Lettre = Mid(ATraduire, I, 1)
End Select
Encode = Encode & Lettre
Next I
End Function