Function SansAccent(Chaine As String)
Dim TabAccent As String, TabSans As String, PosAccent As Long
Dim I As Long, StrTmp As String
' Table des lettres avec accent
TabAccent = "ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðòóôõöùúûüýÿ"
' Table des lettres sans accent
TabSans = "AAAAAACEEEEIIIIOOOOOUUUUYaaaaaaceeeeiiiioooooouuuuyy"
' Pour chaque lettre de la chaine
StrTmp = Chaine
For I = 1 To Len(Chaine)
' Trouvé si la lettre est dans celles accentuées
PosAccent = InStr(1, TabAccent, Mid(StrTmp, I, 1))
' Si oui on la traite
If PosAccent > 0 Then Mid(StrTmp, I, 1) = Mid(TabSans, PosAccent, 1)
Next I
SansAccent = StrTmp
End Function