Bonsoir,
essaie ce code :
Sub remplace_csv()
ReDim A_Remplacer(0 To 26)
ReDim Remplacants(0 To 26)
Dim I As Byte
A_Remplacer = Array("î", "é", "→", "Ü", "ù", "â", "è", "à ", "’", "€", "®", "Ø", "°", "ç", "ô", _
"«", "»", "û", "ê", "…", "/ø", "ø", "À", "É", "È", " à ", "Ö")
Remplacants = Array("î", "é", Chr(26), "Ü", "û", "â", "è", "à", "'", "€", "®", "Ø", "°", "ç", "ô", _
Chr(34), Chr(34), "û", "ê", "..", "ø", "ø", "A", "E", "E", " à ", "Ö")
For I = 0 To 26
Cells.Replace What:=A_Remplacer(I), Replacement:=Remplacants(I), LookAt:=xlPart
Next I
End Sub
Fichier joint :
https://www.excel-pratique.com/~files/doc2/remplace_csv.xls
Bonne soirée
Edit, le fichier a été joint afin d'éviter les caractères non imprimables dans le post.
Prendre le code qui se situe dans le module 1