Sub Test()
Dim i&, TabData As Variant
With Sheets("Feuil1")
TabData = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(3)(1, 10))
End With
Open "C:\Users\***\test.txt" For Output As #1 'adapter le chemin
For i = 1 To UBound(TabData, 1)
Print #1, Join(Application.Index(TabData, i), vbTab)
Next i
Close #1
End Sub