XL 2019 Bouton pour impression dynamique

Dim sPath As String, sFic As String

' UpdateSemaines (conserve 6 semaines masquées et ajoute une semaine a la fin)
Sub MettreAJourSemaine()
  With Sheets("Cédule")
    If .AutoFilterMode = True Then .ShowAllData
    ' Supprimer 7 colonnes
    .Columns("Q:W").Delete Shift:=xlToLeft
    ' Ajoute 7 colonens à la fin
    .Columns("LF:LL").Copy
    .Columns("LM").Insert
    ' Ajuste les dates des cellules de la ligne 15?
    .Range("LL15").AutoFill Destination:=.Range("LL15:LS15"), Type:=xlFillDefault
    ' Ensuite Masque les colonnes $Q:$BF
    Columns("Q:BF").EntireColumn.Hidden = True
    ' Créer un PDF selon l'impression Cédule?
    Call ExportPDFCedule
    ' Produit un mail d'envois avec le PDF en pièce jointe?
    Call EnvoiMail
  End With
End Sub

Sub ExportPDFCedule()
  ' Ces variables son définies en tête du module donc utilisable pour toutes les subb
  sPath = "\\fabfichiers\fabricationsbl\PROJET\DOCUMENTS MASTER\CÉDULE PRODUCTION\"
  sFic = "UpdateCedule.pdf"
  With Sheets("Cédule")
    .PageSetup.PrintArea = "$BG$24:$DX$212"
    .ExportAsFixedFormat Type:=xlTypePDF, FileName:=sPath & sFic, Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
  End With
End Sub

Sub EnvoiMail()
  ' Déclaration des variables utilisées dans le code
  Dim OutObj As Object, Email As Object
  ' Création d'une instance Outlook pour envoyer un mail
  Set OutObj = CreateObject("Outlook.Application")
  Set Email = OutObj.CreateItem(0)
  ' Avec mon objet Email
  With Email
    .Display  ' Afficher le mail pour afficher la signature
    ' Destinataire(s) du mail
    .To = "emaildestinataire@fai.fr"
    ' Copie du mail
    .CC = "emaildestinataire@fai.fr"
    ' Sujet de l'eMail
    .Subject = "Ceci est le sujet de mon mail"
    ' Corps du mail avec signature à la fin
    .HtmlBody = "Bonjour," & "<BR><BR>" _
      & "Ceci est un exemple<BR><BR>" & .HtmlBody
    ' Joindre le fichier précédemment créé
    .Attachments.Add sPath & sFic
    ' Envoyer l'email à activer si souhaité
    '.Send
  End With
  ' Effacer les variable objet
  Set Email = Nothing: Set OutObj = Nothing
End Sub