VBA ACCESS récupérer données dans un .txt

Set objFSO = CreateObject("Scripting.FileSystemObject")
Repertoire = "C:\Documents and Settings\chemin"

'Accède au dossier
If objFSO.FolderExists(Repertoire) Then
    Set oFld = objFSO.GetFolder(Repertoire)
    MsgBox "Dossier trouvé"
Else
    MsgBox "Ce dossier n'existe pas"
End If

' extraction de la liste des groupes - utlisateurs
  Const ctePourLecture = 1
  Const ctePourEcrire = 2
  Const ctePourAjouter = 8

  On Error Resume Next
  NomFichierTxt = "Resultat.csv"
  
  Set objDossier = objFSO.GetFolder(Repertoire)
  Set objResultat = objFSO.CreateTextFile((Repertoire & "\" & NomFichierTxt), ctePourEcrire)

  If (objDossier.Files.Count > 0) Then
     For Each objFichier In objDossier.Files
        If (InStr(1, objFichier.Name, ".txt", 1) > 0) Then
            objResultat.WriteLine objFichier.Name
        End If
     Next
   End If
  objResultat.Close
  Set objResultat = Nothing
  Set objDossier = Nothing
  Set objFSO = Nothing

Const ctePourLecture = 1
Const ctePourEcrire = 2
Const ctePourAjouter = 8

Dim intFic As Integer
Dim strLigne As String
Dim objFSO, objResultat
Dim Repertoire, NomFichierTxt

Set objFSO = CreateObject("Scripting.FileSystemObject")

NomFichierTxt = "Resultat2.csv"
Repertoire = "C:\Documents and Settings\chemin"
Repertoire2 = "C:\Documents and Settings\chemin du fichier"
intFic = FreeFile

Open (Repertoire2) For Input As intFic
Set objResultat = objFSO.CreateTextFile((Repertoire & "\" & NomFichierTxt), ctePourEcrire)
    
While Not EOF(intFic)
    Line Input #intFic, strLigne
    MsgBox strLigne
    objResultat.WriteLine strLigne
    
    
Wend
Close intFic