Bonjour,
voici un proposition de macro
Sub replacecar()
With ActiveSheet.UsedRange
caracteres_a_remplacer = "àâéèêëîïôöûüç"
caracteres_de_remplacement = "aaeeeeiioouuc"
caracteres_a_supprimer = "'$" & Chr(34) 'chr34="
For i = 1 To Len(caracteres_a_remplacer)
caractere_a_remplacer = Mid(caracteres_a_remplacer, i, 1)
caractere_de_remplacement = Mid(caracteres_de_remplacement, i, 1)
.Replace caractere_a_remplacer, caractere_de_remplacement, lookat:=xlPart, MatchCase:=True
Next i
For i = 1 To Len(caracteres_a_supprimer)
caractere_a_supprimer = Mid(caracteres_a_supprimer, i, 1)
.Replace caractere_a_supprimer, "", lookat:=xlPart, MatchCase:=True
Next i
End With
End Sub