Voilà le code modifié:
Function SupprimerAccents(Texte As String) As String
Dim Position As Integer
Dim Caractère As String
For Position = 1 To Len(Texte)
Caractère = Mid(Texte, Position, 1)
Select Case Caractère
Case 'á', 'à', 'â', 'ä', 'ã', 'å'
Caractère = 'a'
Case 'é', 'è', 'ê', 'ë'
Caractère = 'e'
Case 'í', 'ì', 'î', 'ï'
Caractère = 'i'
Case 'ó', 'ò', 'ô', 'ö', 'õ'
Caractère = 'o'
Case 'ú', 'ù', 'û', 'ü'
Caractère = 'u'
Case 'ý', 'ÿ'
Caractère = 'y'
Case 'ç'
Caractère = 'c'
Case 'ñ'
Caractère = 'n'
Case 'š'
Caractère = 's'
Case 'ž'
Caractère = 'z'
End Select
SupprimerAccents = SupprimerAccents & Caractère
Next Position
End Function
Pour les majuscules
Utilise Ucase()
Il suffit de l'insérer au bon endroit dans le code ci-dessus