Transfert données excel vers Notepad ( besoin d'aide svp)

Dim myFso As Object, textFile As Object, i As Integer, j As Integer, textLine As String, textFileName As String

' définir le nom de fichier texte
textFileName = "E:\aMiki\XLS\test\test.txt"

' créer le fichier
Set myFso = CreateObject("Scripting.FileSystemObject")
Set textFile = myFso.CreateTextFile(Filename:=textFileName, overwrite:=True)

With ThisWorkbook.Sheets("Feuil1")
    ' boucler sur toutes les lignes
    For i = 9 To .Range("D9").End(xlDown).Row
        ' initialiser la ligne
        textLine = vbNullString
        ' boucler sur toutes les colonnes (de D à I)
        For j = 4 To 9
            ' créer la ligne
            textLine = textLine & .Cells(i, j).Text & vbTab
        Next j
        textLine = Left(textLine, Len(textLine) - Len(vbTab))
        ' écrire la ligne dans le fichier
        textFile.WriteLine textLine
    Next i
End With

' fermer le fichier
textFile.Close
Set textFile = Nothing: Set myFso = Nothing

Option Explicit

Sub Sauve_TXT()
ActiveWorkbook.SaveAs Filename:="C:\Essai excel.txt", FileFormat:=xlText
End Sub