Générer un p'tit fichier txt

Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _
                                             (ByVal hwnd As Long, ByVal pszPath As String, ByVal lngsec As Long) As Long

' Pour valeur retournée dans Rep
' Voir http://msdn.microsoft.com/en-us/library/bb762131(VS.85).aspx
' et   http://msdn.microsoft.com/en-us/library/ms681381(VS.85).aspx
Private Sub CreationDossier(sDossier As String)
Dim Rep As Long
    Rep = SHCreateDirectoryEx(0&, sDossier, 0&)
End Sub

.....
Dim sNomFichier As String
    sNomFichier = Format(Now, "yyyymmddhhmmss") & ".txt"
.....

.....
Dim LastRow As Long
    LastRow = Feuil1.Range("A" & Feuil1.Rows.Count).End(xlUp).Row