Sub ecriture()
chemin = ThisWorkbook.Path & "\"
Set FSys = CreateObject("Scripting.FileSystemObject")
Set fic = FSys.createTextFile(Filename:=chemin & "test.txt", overwrite:=True)
For i = 1 To 6
fic.WriteLine _
Range("a" & i) & " " & _
Range("b" & i) & " " & _
Range("c" & i) & " " & _
Range("d" & i) & _
Range("e" & i) & _
Range("f" & i) & _
Range("g" & i) & _
Range("h" & i)
Next i
End Sub