Supprimée accent Excel

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

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