Public Function Sans_accents(Chaine As String) As String
Dim a As String, b As String
Dim i As Integer, u As Integer
a = "ÀÁÂÃÄÅÈÉÊËÌÍÎÏÑÒÓÔÕ?ÖÙÚÛÜÝàáâãäåèéêëìíîïðñòóôõöùúûüýÿ"
b = "AAAAAAEEEEIIIINOOOOOOUUUUYaaaaaaeeeeiiiionooooouuuuyy"
Chaine = Replace(Replace(Replace(Replace(Replace(Chaine, "oe", "oe"), _
"OE", "OE"), "æ", "ae"), "Æ", "AE"), "-", " ")
For i = 1 To Len(Chaine)
u = InStr(1, a, Mid(Chaine, i, 1), 0)
If u Then Mid(Chaine, i, 1) = Mid(b, u, 1)
Select Case AscW(Mid(Chaine, i, 1))
Case 336: Mid(Chaine, i, 1) = "O"
Case 368: Mid(Chaine, i, 1) = "U"
End Select
Next i
Sans_accents = Chaine
End Function