Bonsoir David_25
Mets cette macro dans ton fichier excel et teste, en changeant bien sûr le chemin de ton fichier texte
Sub Copie()
Application.ScreenUpdating = False
On Error GoTo CodeErreur
Dim Tabl() As Variant
Dim IndexFichier As Integer
Dim MonFichier As String
Tabl = Range("C4:J14").Value
MonFichier = "C:\Test\Fich.txt" '<-- mettre ici le nom du fichier à lire
IndexFichier = FreeFile()
Open MonFichier For Append As #IndexFichier 'ouverture
L = ""
Print #IndexFichier, ""
For i = 1 To UBound(Tabl)
For j = 1 To UBound(Tabl, 2)
L = L & Tabl(i, j) & Chr(9)
Next j
Print #IndexFichier, L
L = ""
Next i
Close #IndexFichier
Exit Sub
CodeErreur:
MsgBox "Une erreur s'est produite..."
Application.ScreenUpdating = True
End Sub
Bonne soirée