Dim strLine As String Dim mat As String Dim affiche As String Dim nom As String Dim objstreamreader As System.IO.StreamReader Dim objstreamwriter As System.IO.StreamWriter objstreamreader = System.IO.File.OpenText(TextBox1.Text) 'textbox1 correspond au chemin du fichier objstreamwriter = System.IO.File.CreateText("C:\manifeste\ligne.txt") Do Until objstreamreader.Peek = -1 strLine = objstreamreader.ReadLine() nom = UCase(Mid(strLine, 14, 26)) mat = Mid(strLine, 74, 12) cpt = cpt + 1 affiche = "|200000|10|" & cpt & "|0||0||||" & mat & "||1|||" & nom & "|ALGER||1000,0|0,0|0|||||||||||M" objstreamwriter.WriteLine(affiche) Loop