Importation fichier txt vers Excel tableau

Bonjour, j'ai fait appel à votre aide car j'aimerai importer un fichier texte et le transformer en fichier excel.

Je vous mets le fichier txt en pj.

J'ai commencé le code pour l'importation du fichier, pouvez vous m'aider pour la suite svp.

Mon code VBA :

Public Function LireFichierTexte(ByVal MonOAT As String) As String

On Error GoTo LireFichierTexteErreur
Dim IndexFichier As Integer
IndexFichier = FreeFile()
Open MonOAT For Binary Access Read As #IndexFichier
LireFichierTexte = Space$(LOF(IndexFichier))
Get #IndexFichier, , LireFichierTexte
Close #IndexFichier

Exit Function
LireFichierTexteErreur:
Close #IndexFichier
LireFichierTexte = ""
End Function

Sub LectureFichierOAT()


Dim ContenuFichierOAT As String
Dim MonOAT As String
Dim xValeur



MonOAT = "C:\Users\Carla\OneDrive\Documents\VBA PROJET DONNEES\FRABENCHMARK10A_2022-01-22.txt" 'l'emplacement et le nom du fichier texte
ContenuFichierOAT = LireFichierTexte(MonOAT) 'appelle la fonction "LireFichierTexte"

Je vous remercie par avance,

Bonne journée

Carla

Bonjour,

Pourquoi ne pas utiliser la fonctionalité d'importation d'excel ?

Vous en faites quoi après ?

Bonjour c'est dans le cadre d'un projet de code VBA pour l'université et nous n'avons pas le droit d'importer le fichier de cette manière, il faut réaliser l'importataion avec un code.