Copier cellules dans fichier TXT

Bonjour, voici mon problème ! JE voudrais copier le contenue de plusieurs cellules chacune dans une colonne différente dans un fichier texte mais je n'y parviens pas ! Le fichier ce créer bien a l'endroit demander mais il n'y a rien dans celui-ci.

J'ai vraiment besoin d'aide ceci est pour mon projet de fin d'année

Je vous remercie d'avance

Cordialement

J'ai oublier de joindre les fichiers. Je voudrais copier les cellules I A N de la ligne 10 comme dans le fichier texte si joint

Merci d'avance de votre aide je suis totalement perdu

Voici mon début de code, je voudrais apres la copie des deux premières cellules changer de lignes, et aussi changer le chemin d’accès d'enregistrement. Comment m'y prendre ?

Private Sub CommandButton1_Click()

Dim TheText As String
Dim TheFile As Variant

If MsgBox("Voulez-vous faire une sauvegarde des données ?", vbYesNo + vbQuestion + vbDefaultButton2, "Confirmation de Sauvegarde") = vbYes Then
    TheFile = ThisWorkbook.Path & "\COMMANDES.txt"
    If TheFile = False Then Exit Sub
    On Error GoTo Out 'si le fichier est ouvert
   Open TheFile For Output As #1
        TheText = ""
        TheText = Cells(10, 9) & Cells(10, 10)

    Print #1, TheText
    Close
    Exit Sub
Out:
    MsgBox "Il semble que le fichier soit déjà ouvert, donc mise à jour impossible", vbCritical, "Back up impossible"
    Close
End If
End Sub

J'ai résolu mon problème pour copier toutes les cellules, le seul soucis qui me reste est le chemin de destination pour la création du fichier TXT. Je n'arrive pas à le modifier

Merci

Cordialement