Sub Copy_Txt()
Dim fs As Object, file As Object
Dim i As Integer, lig As Long
Dim line1, line2, line3, line4
Set fs = CreateObject("Scripting.FileSystemObject")
Set file = fs.CreateTextFile("C:\Main.txt", True)
With Feuil1
lig = .Range("a65536").End(xlUp).Row
For i = 2 To lig
line1 = .Cells(1, 1) & " " & i - 1 & ": " & .Cells(i, 1)
line2 = .Cells(1, 2) & ": " & .Cells(i, 2)
line3 = .Cells(1, 3) & ": " & .Cells(i, 3)
line4 = .Cells(1, 4) & ": " & .Cells(i, 4) & Chr(13) + Chr(10)
file.WriteLine line1
file.WriteLine line2
file.WriteLine line3
file.WriteLine line4
Next
i = i + 1
End With
file.Close
End Sub