creer un fichier txt par lignes d'un fichier excel

Sub creer()
    chemin = "D:\" 'Destination des fichiers .txt
    i = 2 'Ligne de début de la création de fichier .txt
    While (Cells(i, 1) <> "") 'On commence par bouclé tant qu'il existe une ligne comportant des données
        Open chemin & Cells(i, 1) & ".txt" For Output As #1 'On créer un fichier txt
        Close 'on le ferme proprement
        i = i + 1 'on passe a la ligne suivante
    Wend
End Sub

Sub Macro1()
'
' Macro1 Macro
'
' récupère le nom du fichier dans la cellule A2
    
    NomFichier = Range("A2")
'donne le chemin du répertoire de sauvegarde
    Chemin = "C:\"
    CheminComplet = Chemin & NomFichier & ".txt"
    'sauvegarde au format .txt du fichier
    ActiveWorkbook.SaveAs Filename:=CheminComplet, FileFormat:=xlText, CreateBackup:=False
End Sub

Sub Cells2Txt()
Dim cell As Range, FF&, Counter&
For Each cell In Range("A1", Range("A" & Rows.Count).End(xlUp))
    If Len(cell) > 0 Then
        FF = FreeFile()
        Open ThisWorkbook.Path & "\" & 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 & " fichiers créés. ", , "Fin de traitement"
End Sub

Sub creer()
    chemin = "D:\" 'Destination des fichiers .txt
    i = 2 'Ligne de début de la création de fichier .txt
    While (Cells(i, 1) <> "") 'On commence par bouclé tant qu'il existe une ligne comportant des données
        Open chemin & Cells(i, 1) & ".txt" For Output As #1 'On créer un fichier txt
        Print "Mon Texte contenu", chemin & Cells(i, 1) & ".txt" 
        Close 'on le ferme proprement
        i = i + 1 'on passe a la ligne suivante
    Wend
End Sub

Print "Mon Texte contenu", chemin & Cells(i, 1) & ".txt"

Sub Cells2Txt()
Dim cell As Range, FF&, Counter&
For Each cell In Range("A1", Range("A" & Rows.Count).End(xlUp))
    If Len(cell) > 0 Then
        FF = FreeFile()
        Open ThisWorkbook.Path & "\" & Range("A" & cell.Row).Value & ".txt" For Output As #FF
        Print #FF, "Texte prédéfini"
        Close #FF
        Counter = Counter + 1
    End If
Next cell
MsgBox Counter & " fichiers créés. ", , "Fin de traitement"
End Sub