Bonjour,
Avec un code VBA, ça te va?
le code :
Sub html_fr()
txt_html = Array("é", "è", "ê", "à", "â", "’", "û", _
"ù", "ô", "î", "ç", "œ", "²", " ")
txt_fr = Array("é", "è", "ê", "à", "â", "'", "û", "ù", "ô", "î", "ç", "œ", "²", " ")
For i = LBound(txt_html) To UBound(txt_html)
Cells.Replace txt_html(i), txt_fr(i), lookat:=xlPart
Next i
End Sub
Ton fichier :