XL 2016 Automatiser l'enregistrement d un onglet au format txt separition tabulation

Option Explicit

Sub FichierCSV()
  Dim Plage As Range, Fichier As String, Chaine As String
  Dim L As Long, f As Integer, c As Integer
  Fichier = ThisWorkbook.Path & "\" & "MonFichier.txt" 'chemin et nom fichier à adapter
  Application.ScreenUpdating = False
  With Feuil6 'feuille à adapter
    Set Plage = .UsedRange
    f = FreeFile()
    Open Fichier For Output As #f
    For L = 1 To Plage.Rows.Count
      Chaine = Plage.Cells(L, 1)
      For c = 1 To Plage.Columns.Count
        Chaine = Chaine & vbTab & Plage.Cells(L, c)
      Next c
      Print #f, Chaine
    Next L
    Close #f
  End With
MsgBox "Fichier texte créer avec succès!", vbInformation + vbOKOnly, "CREATION FICHIER TEXTE"
End Sub

Sub SaveTxt()
Application.DisplayAlerts = False
    ActiveSheet.Copy 'on copie l'onglet dans un nouveau fichier
    With ActiveWorkbook
        Fname = "D:\Users\.........\" & ActiveSheet.Name & ".txt"
        .SaveAs Fname, FileFormat:=xlText, CreateBackup:=False
        .Close False
    End With
    MsgBox "Export effectué en " & Fname, vbInformation
End Sub

Sub ExportTab()
    For Each Onglet In Array("Bd", "Onglet1", "Onglet2", "etc...")
        If IsFeuille(Onglet) Then SaveTxt Worksheets(Onglet)
    Next
End Sub
Sub SaveTxt(Sh As Worksheet)
Application.DisplayAlerts = False
    Sh.Copy 'on copie l'onglet dans un nouveau fichier
    With ActiveWorkbook
        Fname = "D:\Users\.........\" & Sh.Name & ".txt"
        .SaveAs Fname, FileFormat:=xlText, CreateBackup:=False
        .Close False
    End With
    MsgBox "Export effectué en " & Fname, vbInformation
End Sub
Function IsFeuille(F) As Boolean
    On Error Resume Next: IsFeuille = Not Worksheets(F) Is Nothing
End Function

Sub ExportTab()
    Folder = ThisWorkbook.Path & "\"
    For Each Onglet In Array("Bd") ', "Onglet1", "Onglet2", "etc...")
        If IsFeuille(Onglet) Then
            Worksheets(Onglet).ExportAsFixedFormat Type:=xlTypePDF, _
                Filename:=Folder & Onglet & ".pdf"
        End If
    Next
End Sub