Sub RemplaceTexte()
Dim Wst As Worksheet, Fichier As String, AncTexte As String, _
NouvTexte As String, NomXml As String, ZLn As String
Set Wst = Sheets("Feuil1")
Fichier = ThisWorkbook.Path & "\Fichiers\" & Wst.[A2].Text & ".txt"
AncTexte = Wst.[E2].Text
NouvTexte = Wst.[F2].Text
NomXml = Wst.[C2].Text
Open Fichier For Input As #1
Open ThisWorkbook.Path & "\" & 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