Sub sansaccents()
' Remplace tous les caractères spéciaux par leur équivalent naturel
' Définition de la conversion
Const accent As String = "ÀÁÂÃÄÅàáâãäåÒÓÔÕÖØòóôõöøÈÉÊËèéêëÌÍÎÏìíîïÙÚÛÜùúûüÿ ÑñÇç-'"
Const noAccent As String = "AAAAAAaaaaaaOOOOOOooooooEEEEeeeeIIIIiiiiUUUUuuuuy NnCc "
Dim i As Integer
Dim lettre As String * 1
For Each mot In Selection
For i = 1 To Len(accent)
lettre = Mid$(accent, i, 1)
If InStr(mot, lettre) > 0 Then
Nllelettre = Mid$(noAccent, i, 1)
'MsgBox "la lettre " & lettre & " sera remplacée par la lettre " & Nllelettre
mot.Replace what:=lettre, replacement:=Nllelettre, lookat:=xlPart
End If
Next i
Next mot
End Sub