Ouvrir un fichier texte depuis macro

Sub RemplaceTexte()
Dim Wks As Worksheet, Fichier As String, AncTexte As String, _
NouvTexte As String, NomXml As String, ZLn As String

    Set Wks = Sheets("Feuil1")
    Fichier = ThisWorkbook.Path & "\" & Wks.[A2].Text & ".txt"

    AncTexte = Wks.[E2].Text
    NouvTexte = Wks.[F2].Text
    NomXml = Wks.[C2].Text

    Open Fichier For Input As #1
    Open ThisWorkbook.Path & "\Fichiers XML\" & NomXml & ".xml" For Output As #2
    Do While Not EOF(1)
        Line Input #1, ZLn
        Print #2, Replace(ZLn, AncTexte, NouvTexte)
    Loop
    Close #1, #2
End Sub