Public Function sansAccents2(txt As String) As String
Application.Volatile
For i% = 1 To Len(txt)
Select Case Mid(txt, i, 1)
Case Chr(192) To Chr(197), Chr(224) To Chr(229)
char = "a"
Case Chr(232) To Chr(235), Chr(200) To Chr(203)
char = "e"
Case "í", "ì", "î", "ï", "Í", "Ì", "Î", "Ï"
char = "i"
Case "ó", "ò", "ô", "ö", "õ", "Ó", "Ò", "Ô", "Ö", "Õ", Chr(248)
char = "o"
Case "ú", "ù", "û", "ü", "Ú", "Ù", "Û", "Ü"
char = "u"
Case "ÿ", "ý", Chr(221), Chr(159)
char = "y"
Case "ñ", "Ñ"
char = "n"
Case "ç", Chr(199)
char = "c"
Case Chr(230), Chr(198)
char = "ae"
Case Chr(138)
char = "s"
Case Chr(140), Chr(156)
char = "oe"
Case Else
char = UCase(Mid(txt, i, 1))
End Select
laChaine = laChaine & char
Next i
sansAccents2 = Trim(UCase(Left(laChaine, 1)) & LCase(Right(laChaine, Len(laChaine) - 1)))
End Function