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

Sub test()
    ' Lit le fichier texte et place son contenu dans le presse-papier
    PressePapier = LireFichierTxt(ThisWorkbook.Path & "\Articles_Extraction_Parametrees_POUR TEST.txt")
  
    ' Colle le contenu du presse-papier dans la cellule A1 de la feuille "Source"
    Sheets("Source").Range("A1").PasteSpecial xlPasteAll
  
    ' Vide le presse-papier
    ClearPressePapier
End Sub

Function LireFichierTxt(cheminFichier As String) As String
    Dim numeroFichier As Integer  ' Numéro de fichier unique pour l'opération
    Dim contenu As String         ' Variable pour stocker le contenu du fichier
  
    ' Obtient un numéro de fichier libre
    numeroFichier = FreeFile
  
    ' Ouvre le fichier en mode lecture
    Open cheminFichier For Input As #numeroFichier
  
    ' Lit tout le contenu du fichier en une seule fois (LOF = Length Of File)
    contenu = Input$(LOF(numeroFichier), numeroFichier)
  
    ' Ferme le fichier
    Close #numeroFichier
  
    ' Retourne le contenu lu
    LireFichierTxt = contenu
End Function

Public Function ClearPressePapier()
    ' Efface le contenu texte du presse-papier Windows
    CreateObject("htmlfile").parentwindow.clipboardData.clearData "Text"
End Function

Public Property Let PressePapier(valeur)
    ' Définit le contenu texte du presse-papier Windows
    CreateObject("htmlfile").parentwindow.clipboardData.SetData "Text", valeur
End Property

Public Property Get PressePapier()
    ' Récupère le contenu texte du presse-papier Windows
    PressePapier = CreateObject("htmlfile").parentwindow.clipboardData.GetData("TEXT")
End Property

let
    Source = Csv.Document(File.Contents("D:\doc\Excel\exemples\PQ\csv\Articles_Extraction_Parametrees_POUR TEST.txt"),[Delimiter="#(tab)", Columns=32, Encoding=1252, QuoteStyle=QuoteStyle.None]),
    #"En-têtes promus" = Table.PromoteHeaders(Source, [PromoteAllScalars=true]),
    #"Type modifié" = Table.TransformColumnTypes(#"En-têtes promus",{{"Remise 1 conv.", type number}, {"Remise 2 conv.", type number}, {"Remise 3 conv.", type number}, {"Remise 4 conv.", type number}, {"Remise 5 conv.", type number}, {"Prix Achat Brut", type number}, {"Prix Public HT", type number}, {"Taux de Marque", type number}})
in
    #"Type modifié"

Sub Ouvrir()
' Ouvrir un fichier ".txt" en formatant les colonnes

    fces = "Articles_Extraction_Parametrees_POUR TEST.txt"
    fic_ori = ThisWorkbook.Name
    rep = ThisWorkbook.Path & "\"
    Sheets("Source").Range("A1").Select

    ' Le formatage des Colonnes se fait avec la fonction "Array(1 ,x)
    '   1 = Le numéro de la Colonnes
    '   x = représente Le Type de Formatage, voir ci-dessous
    '       1 = Général
    '       2 = Texte
    '       3 = Date au format MDY
    '       4 = Date au format DMY
    '       5 = Date au format YMD
    '       6 = Date au format MYD
    '       7 = Date au format DYM
    '       8 = Date au format YDM
    '       9 = Colonne Pas Analysée
    '      10 = Date au format EMD
    Workbooks.OpenText Filename:=rep & fces, _
                       Origin:=xlWindows, _
                       StartRow:=1, _
                       DataType:=xlDelimited, _
                       TextQualifier:=xlTextQualifierNone, _
                       ConsecutiveDelimiter:=False, _
                       Tab:=True, _
                       Semicolon:=False, _
                       Comma:=False, _
                       Space:=False, _
                       Other:=False, _
                       OtherChar:="|", _
                       FieldInfo:=Array(Array(1, 1), Array(2, 2), Array(3, 2), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
                                        Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), _
                                        Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), _
                                        Array(25, 1), Array(26, 1), Array(27, 1), Array(28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1)), _
                       DecimalSeparator:=".", _
                       TrailingMinusNumbers:=True

End Sub

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, """", "") 'supprime les guillemets
    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, Tab:=True, Other:=False, DecimalSeparator:="." 'commande Convertir
End With
End Sub