Function [B][I]Super_Majuscule[/I][/B](valeur As String)
Dim sm As String
sm = Replace(valeur, "à", "A")
sm = Replace(sm, "â", "A")
sm = Replace(sm, "ä", "A")
sm = Replace(sm, "Â", "A")
sm = Replace(sm, "Ä", "A")
sm = Replace(sm, "é", "E")
sm = Replace(sm, "è", "E")
sm = Replace(sm, "ê", "E")
sm = Replace(sm, "ë", "E")
sm = Replace(sm, "É", "E")
sm = Replace(sm, "È", "E")
sm = Replace(sm, "Ê", "E")
sm = Replace(sm, "Ë", "E")
sm = Replace(sm, "Ë", "E")
sm = Replace(sm, "î", "I")
sm = Replace(sm, "ï", "I")
sm = Replace(sm, "Î", "I")
sm = Replace(sm, "Ï", "I")
sm = Replace(sm, "ô", "O")
sm = Replace(sm, "ö", "O")
sm = Replace(sm, "Ô", "O")
sm = Replace(sm, "Ö", "O")
sm = Replace(sm, "ù", "U")
sm = Replace(sm, "û", "U")
sm = Replace(sm, "ü", "U")
sm = Replace(sm, "Û", "U")
sm = Replace(sm, "Ü", "U")
Super_Majuscule = UCase(sm)
End Function