Modification fichier xml via vba

Sub cc()
Dim Lecture As String
Dim Ecriture As String
Dim Origine1 As String, Origine2 As String
Dim Cible1 As String, Cible2 As String
Dim FichierOld As String, Fichier As String
Dim Tourne As Long

'Init éléments d'origine et remplaçant
 Origine1 = "<H_CUSTOM9>N</H_CUSTOM9>"
 Cible1 = "<H_CUSTOM9>O</H_CUSTOM9>"
 Origine2 = "<H_CUSTOM10>N</H_CUSTOM10>"
 Cible2 = "<H_CUSTOM10>O</H_CUSTOM10>"
  Tourne = 1
  Fichier = ThisWorkbook.Sheets("Feuil1").Range("A1")
  Do
   FichierOld = Replace(Fichier, ".", "_old.")
   Name Fichier As FichierOld
   Open Fichier For Output As #2 ' Ouvre le fichier en écriture
    Open FichierOld For Input As #1    ' Ouvre le fichieren lecture.
     Do While Not EOF(1)    ' Effectue la boucle jusqu'à la fin du fichier.
      Line Input #1, Lecture        ' Lit la ligne dans la variable.
      Ecriture = Replace(Replace(Lecture, Origine1, Cible1), Origine2, Cible2)
      Print #2, Ecriture
     Loop
    Close #2
   Close #1    ' Ferme le fichier.
   Tourne = Tourne + 1
   Fichier = ThisWorkbook.Sheets("Feuil1").Range("A" & Tourne)
  Loop Until Fichier = ""
End Sub

Sub cc()
Dim Lecture As String
Dim Ecriture As String
Dim Origine1 As String, Origine2 As String
Dim Cible1 As String, Cible2 As String
Dim FichierOld As String, Fichier As String
Dim Tourne As Long

'Init éléments d'origine et remplaçant
 Origine1 = "<H_CUSTOM9>N</H_CUSTOM9>"
 Cible1 = "<H_CUSTOM9>O</H_CUSTOM9>"
 Origine2 = "<H_CUSTOM10>N</H_CUSTOM10>"
 Cible2 = "<H_CUSTOM10>O</H_CUSTOM10>"
  Tourne = 1
  Fichier = ThisWorkbook.Sheets("Feuil1").Range("A1")
  Do
   FichierOld = Replace(Fichier, ".", "_old.")
   Name Fichier As FichierOld
   Open Fichier For Output As #2 ' Ouvre le fichier en écriture
    Open FichierOld For Input As #1    ' Ouvre le fichieren lecture.
     Do While Not EOF(1)    ' Effectue la boucle jusqu'à la fin du fichier.
      Line Input #1, Lecture        ' Lit la ligne dans la variable.
      Ecriture = Replace(Replace(Lecture, Origine1, Cible1), Origine2, Cible2)
      Print #2, Ecriture
     Loop
    Close #2
   Close #1    ' Ferme le fichier.

'Destruction du fichier old
   kill fichierold


   Tourne = Tourne + 1
   Fichier = ThisWorkbook.Sheets("Feuil1").Range("A" & Tourne)
  Loop Until Fichier = ""
End Sub