XL 2019 Import fichier ".txt" avec des caractères cachés qui gênent l'import

Sub Ouvrir()
Dim fichier, texte$, a(), n&
fichier = ThisWorkbook.Path & "\Articles_Extraction_Parametrees_POUR TEST.txt"
Open fichier For Input As #1 'ouverture en lecture séquentielle
While Not EOF(1)
    Line Input #1, texte
    texte = Replace(texte, """""", Chr(1)) 'repère les guillemets doubles
    texte = Replace(texte, """", "") 'supprime les guillemets simples
    texte = Replace(texte, Chr(1), """") 'transforme les guillemets doubles en guillemets simples
    ReDim Preserve a(n): a(n) = texte: n = n + 1
Wend
Close #1
Application.ScreenUpdating = False
Cells.ClearContents 'RAZ
With [A1].Resize(n)
    .Value = Application.Transpose(a) 'Transpose est limitée à 65536 lignes
    .TextToColumns .Cells, xlDelimited, TextQualifier:=xlTextQualifierNone, Tab:=True, Other:=False, DecimalSeparator:="." 'commande Convertir
End With
End Sub