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