Mise en forme particulière

Function Sans_accents(Chaine$) As String ' R. Dezan + Michel Pierron
'Cette fonction enlève également les OE, oe, Æ, æ qui posent un problème sur les sytèmes anglais.
' remplacement des caractères accentués
    Dim a As String, b As String
    Dim i As Long, u As Long
    a = "ÀÁÂÃÄÅÈÉÊËÌÍÎÏÑÒÓÔÕÖÙÚÛÜÝàáâãäåèéêëìíîïðñòóôõöùúûüýÿ"
    b = "AAAAAAEEEEIIIINOOOOOUUUUYaaaaaaeeeeiiiionooooouuuuyy"
    Chaine = Replace(Replace(Replace(Replace(Chaine, "oe", "oe"), "OE", "OE"), "æ", "ae"), "Æ", "AE")
    For i = 1 To Len(Chaine)
        u = InStr(1, a, Mid(Chaine, i, 1), 0)
        If u Then Mid(Chaine, i, 1) = Mid(b, u, 1)
    Next i
    Sans_accents = Chaine
End Function

Private Sub TextBox1_Change()
    TextBox1 = UCase(Sans_accents(TextBox1))
End Sub

Sub traiterSelection()
    Dim c As Range
    For Each c In Selection
        c = UCase(Sans_accents(c))
    Next c
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B2:B10]) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    Target = UCase(Sans_accents(Target.Value))
    Application.EnableEvents = True
End Sub