Copier Ligne dans fichier texte

Bonjour,

Je dois copier chaque ligne Excel dans un fichier texte unique.

J'arrive à copier seulement les valeur de la première colonne, est-il possible de m'aider pour copier toute la ligne (De colonne A à colonne J) s'il vous plaît ?

Voici la macro :

Sub TestMacro()

Dim cell As Range, FF&, Counter&

For Each cell In Range("A4", Range("A" & Rows.Count).End(xlUp))

If Len(cell) > 0 Then

FF = FreeFile()

Open "C:\Users\xxxxx\Desktop\Test\" & Range("A" & cell.Row).Value & ".txt" For Output As #FF

Print #FF, cell.Text

Close #FF

Counter = Counter + 1

End If

Next cell

MsgBox Counter & " Ok ", , "Fin de traitement"

End Sub

Merci d'avance de votre aide.