XL 2019 VBA - problèmes de guillemets dans un export d'Excel vers un fichier texte

Sub test()
    chaine = [B1].Value
    For i = 1 To Len(chaine)
        Caractère = Asc(Mid(chaine, i, 1))
        Valcar = Chr(Caractère)
    Next i
End Sub

Sub WriteTxtFile()
    Dim Chaine As String, Fichier As String, f As Integer, Path As String
    'Path = "C:\Users\PC_PAPA\Desktop\"      ' Mettre chemin
    Path = Environ("userprofile") & "\Desktop\"     ' Mettre chemin
    On Error GoTo Erreur
    NomduFichier = InputBox("Please enter the name of the txt file", "Name of the file", "File")
    If NomduFichier <> "" Then
        Fichier = Path & NomduFichier & ".txt"
        f = FreeFile
        Open Fichier For Output As #f
        For i = 1 To 6  ' Nombre de lignes
            'Chaine = [A:B].Cells(i, 1) & "     " & [A:B].Cells(i, 2)    ' Construit la chaine à écrire
            Chaine = Join(WorksheetFunction.Index(Range("A1:Q1000").Value, i, 0), vbTab)     ' Construit la chaine à écrire
            Print #f, Chaine   'Ecrit chaine dans fichier
        Next i
        Close #f
    End If

    Exit Sub
Erreur:
    MsgBox "Le fichier de sortie est inaccessible"
End Sub

Sub rangeToTXT()
    Dim Fichier As String, f As Integer, Path As String
    Selection.Copy
    Path = Environ("userprofile") & "\Desktop\"     ' Mettre chemin
    NomduFichier = InputBox("Please enter the name of the txt file", "Name of the file", "File")
    If NomduFichier <> "" Then
        Fichier = Path & NomduFichier & ".txt"
        f = FreeFile
        Open Fichier For Output As #f
        Print #f, CreateObject("htmlfile").parentwindow.clipboardData.GetData("TEXT")   'Ecrit chaine dans fichier
        Close #f
    End If
End Sub