Supprimée accent Excel

Bonjour tout le monde,

une fonction personnalisée pour supprimer les accents :

Function suppAccent(chaine As String) As String 
    Dim accent As String, sansAccent As String, i As Long 
    accent = "àéèêëîïôüù" 
    sansAccent = "aeeeeiiouu" 
    For i = 1 To Len(accent) 
        chaine = Replace(chaine, Mid(accent, i, 1), Mid(sansAccent, i, 1)) 
    Next i 
    suppAccent = chaine 
End Function

A mettre dans un module, on peut compléter la liste de lettres accentuées...
Syntaxe : =suppAccent(A2)

Plus une procédure pour traiter une plage sélectionnée :

Sub suppAccentSelection() 
    Dim c As Range 
    For Each c In Selection 
        c = suppAccent(c.Value) 
    Next c 
End Sub 

Attention : la procédure remplace les chaines dans les cellules, la chaine originale n'est plus récupérable.
eric

Edit : exemple