Function MajSansAccent$(ByVal Chaine$)
'Ti
'Modifs Staple 1600 -ajout des majuscules accentuées
Const VAccent = "ÀÁÂÃÄÅàáâãäåÈÉÊËéêëèÌÍÎìíîïÒÓÔÕÖðòóôõöÙÚÛÜùúûüýÿ皞ݟNJŽ", VSsAccent = "AAAAAAaaaaaaEEEEeeeeIIIiiiiOOOOOooooooUUUUuuuuyycsz"
Dim Bcle&
For Bcle = 1 To Len(VAccent)
Chaine = Replace(Chaine, Mid(VAccent, Bcle, 1), Mid(VSsAccent, Bcle, 1))
Next Bcle
MajSansAccent = Chaine
End Function