Private Sub Command1_Click() Dim NumFic As Integer Dim s As String NumFic = FreeFile Open "c:\temp\essai.txt" For Input As #NumFic s = Input(LOF(NumFic), #NumFic) Close s = Replace(s, "toto", "truc") Open "c:\temp\essai.txt" For Output As #NumFic Print #NumFic, s Close End Sub