remplacer des symboles japonais par macro

Bonjour à tous, bonjour forumiens et forumiennes,

J’ai transformé manuellement la date en « jj/mm/aa »
J’ai procédé ainsi :
Copie du caractère japonais à supprimer dans la barre du haut

- édition-remplacer
- dans rechercher : Ctrl+H et Ctrl+V
- dans remplacer par : /
et ainsi de suite pour tous les symboles à traiter ;

Et ça marche.

J’obtiens le code suivant :
Sub remplaceDate()
Range("A4").Select
ActiveCell.FormulaR1C1 = "2004?3?29?"
Range("A4").Select
Cells.Replace What:="?", Replacement:="/", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
ActiveCell.FormulaR1C1 = "2004/3?29?"
Range("A4").Select
Cells.Replace What:="?", Replacement:="/", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
ActiveCell.FormulaR1C1 = "2004/3/29?"
Range("A4").Select
Cells.Replace What:="?", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False
End Sub

Si j’exécute la macro (bouton1)
Toutes les données de la page s’effacent…



J’ai donc essayé de bricoler le code , mais sans trouver de solution

Puis-je avoir une aide ?

Merci d’avance

PJ : japon.zip 9 Ko

albert