Macro Excel pour supprimer les accents

    * ' Définition de la conversion
    * Const accent As String = "ÀÁÂÃÄÅàáâãäåÒÓÔÕÖØòóôõöøÈÉÊËèéêëÌÍÎÏìíîïÙÚÛÜùúûüÿÑñÇç"
    * Const noAccent As String = "AAAAAAaaaaaaOOOOOOooooooEEEEeeeeIIIIiiiiUUUUuuuuyNnCc"
    *
    * ' La fonction :
    * Private Function sansAccents(ByRef s As String) As String
    * Dim i As Integer
    * Dim lettre As String * 1
    * sansAccents = s
    * For i = 1 To Len(accent)
    * lettre = Mid$(accent, i, 1)
    * If InStr(sansAccents, lettre) > 0 Then
    * sansAccents = Replace(sansAccents, lettre, Mid$(noAccent, i, 1))
    * End If
    * Next i
    * End Function
    *
    *
    * ' Exemple d'utilisation :
    * Private Sub Form_Load()
    * Dim demo As String
    * demo = "L'été, je vais sur l'île où y'a la fête jusqu'à l'aube et" & _
    * " je hurle: YÀÁÂÃÄÅàáâãäåÒÓÔÕÖØòóôõöøÙÚÛÜùúûü ... "
    * Debug.Print demo & vbCrLf & " => " & sansAccents(demo)
    * End Sub