Problème importation fichier texte dans Excel

Workbooks.OpenText Filename:="Nom_complet_du_fichier.txt", Origin:= _
        xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
        , Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(1, 2)

rivate Sub Workbook_Open()

Dim Resultat, Chemin As String
Dim Lecture As Integer
Dim Compteur As Variant
Chemin = Application.GetOpenFilename
If Chemin = "" Then End
Lecture = FreeFile()
Open Chemin For Input As #Lecture
Application.ScreenUpdating = False
Compteur = 1
Do While Not EOF(Lecture)
Line Input #Lecture, Resultat
ActiveCell.Value = Resultat
        
ActiveCell.TextToColumns , DataType:=xlFixedWidth, TextQualifier:=xlDoubleQuote, Comma:=True
If ActiveCell.Row = 65500 Then
ActiveWorkbook.Sheets.Add After:=Sheets(Sheets.Count)
Else
ActiveCell.Offset(1, 0).Select
End If
Compteur = Compteur + 1
Loop
Close #Lecture
Application.ScreenUpdating = True

Application.ScreenUpdating = False
Set w = ActiveWorkbook
Set sh = w.ActiveSheet
ad = ActiveCell.Address
Chemin = Application.GetOpenFilename
If Chemin = "" Then End
Workbooks.OpenText Filename:=Chemin, Origin:= _
        xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
        , Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(1, xlTextFormat)
ActiveSheet.Range("A1:A" & ActiveSheet.Range("A65536").End(xlUp).Row).Copy Destination:=sh.Range(ad).Offset(n - 1, 0)
ActiveWorkbook.Close
Application.ScreenUpdating = True

Sub import()
Dim i As Integer, textFile As Object

Set textFile = CreateObject("Scripting.FileSystemObject").OpenTextFile("[COLOR=Red][B]E:\test.txt[/B][/COLOR]", 1)

While Not textFile.AtEndOfStream
    i = i + 1
    Range("A" & i).Value = "'" & textFile.ReadLine
Wend

Set textFile = Nothing
End Sub

Sub import()
Dim i As Integer, textFile As Object
Chemin = Application.GetOpenFilename
If Chemin = "" Then End
Set textFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(Chemin, 1)
While Not textFile.AtEndOfStream
  x = Split(textFile.ReadLine, ",")
   For n = LBound(x) To UBound(x)
    ActiveCell.Offset(i, n).Value = "'" & x(n)
   Next n
    i = i + 1
Wend
Set textFile = Nothing
End Sub

Sub import()
Application.ScreenUpdating = False
Dim i As Integer, textFile As Object
Chemin = Application.GetOpenFilename
If Chemin = "" Then End
Set textFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(Chemin, 1)
While Not textFile.AtEndOfStream
  x = Split(textFile.ReadLine, ",")
   For n = LBound(x) To UBound(x)
    ActiveCell.Offset(i, n).Value = "'" & Replace(x(n), """", "")
   Next n
    i = i + 1
Wend
Set textFile = Nothing
Application.ScreenUpdating = True
End Sub