Sub supp_accents()
Dim c As Range, r As Range
Dim codeA$, codeB$, temp, i As Long
codeA = "ÉÈÊËÔéèêëàâäçôöûüùïî"
codeB = "EEEEOeeeeaaacoouuuii"
Set r = ActiveSheet.UsedRange
For Each c In r
temp = c
For i = 1 To Len(temp)
p = InStr(codeA, Mid(temp, i, 1))
If p > 0 Then Mid(temp, i, 1) = Mid(codeB, p, 1)
Next
c = temp
Next c
End Sub