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 = "AAAAAAaaaaaaOOOOOOooooooEEEEeeeeIIIIiiiiUUUUu uuuy NnCc "
Dim i As Integer
Dim lettre As String * 1
Dim v As Long
For v = Range("C65536").End(xlUp).Row To 2 Step -1
If Not Cells(v, 3).Value = "FRA" And Not Cells(v, 3).Value = "BEL" Then
Cells(v, 4).Select
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 If
Next v
End Sub