Re bonjour
sans le fichier, ça va être dur.
c'est plutôt à mon avis un problème de lecture certainement du à la syntaxe que tu as utilisée.
l'exemple ci dessous t'écrira le fichier txt dans le classeur actif en partant de la feuille 1 et en décalant d'une feuille toutes les 65536 lignes.
Aprés, tu pourras appliquer un texttocolumns avec la même syntaxe qu'opentext.
Cordialement, A+
Sub essai()
Dim Val_Ligne As String
Dim Compteur As Long, Compteur2 As Integer
On Error GoTo Ferme
Open "d:\copy\test.txt" For Input As #1
Compteur = 0
Compteur2 = 1
Do While Not EOF(1)
Line Input #1, Val_Ligne
Sheets(Compteur2).Range("A1").Offset(Compteur, 0).Value = Val_Ligne
Compteur = Compteur + 1
If Compteur = 65536 Then Compteur = 0: Compteur2 = Compteur2 + 1
Loop
Ferme:
Close #1
End Sub