Bonjour Ci-dessous une macro pour convertir une chaine en majuscule sans accent converti également les Maj avec accent en Maj sans accent, fonctionne pour à â ç è é ê ë î ï ô ö ù û

Sub test_MinMajSansAccent Msgbox "à â ç è é ê ë î ï ô ö ù û "& chr(13)& MinMajSansAccent("à â ç è é ê ë î ï ô ö ù û ") Msgbox "être là où ça révéle "& chr(13)& MinMajSansAccent("être là où ça révéle ") Msgbox "ÊTRE LÀ OÙ ÇA RÉVÉLE "& chr(13)&MinMajSansAccent("ÊTRE LÀ OÙ ÇA RÉVÉLE ")

end sub

function MinMajSansAccent(Chaine as string) as string Dim Lettre as String, Resultat as string, i as long Chaine = Lcase(Chaine) For i = 1 to len(Chaine) Lettre = mid(Chaine,i,1)

Select case lettre Case "à" Lettre = "a" Case "â" Lettre = "a" Case "â" Lettre = "a" Case "ç" Lettre = "c" Case "é","è","ê","ë" Lettre = "e" Case "î","ï" Lettre = "i" Case "ô","ö" Lettre = "o" Case "ù","û","ü" Lettre = "u" end select Resultat = Resultat & Lettre Next i MinMajSansAccent = Ucase(Resultat)

End function