Sub Export()
Dim I&, J&, Chemin$, Mes$
'Chemin du bureau (a adapter)
Chemin = CreateObject("WScript.Shell").specialFolders("Desktop")
With Sheets("Feuil1") ' nom de la feuille à adapter
For I = 1 To .Cells(.Rows.Count, 1).End(3).Row
Mes = ""
For J = 2 To 15 'Colonnes de 2 à 15
Mes = Mes & .Cells(I, J).Value & vbNewLine
Next J
Open Chemin & "\" & .Cells(I, 1).Value & ".txt" For Output As #1
Print #1, Left(Mes, Len(Mes) - 1)
Close #1
Next I
End With
End Sub