Sub SaveFeuilPDF()
Dim NomFeuil$, NomFichier$, DossierSauvegarde$, CheminFichier$
NomFeuil = "bon de commande"
NomFichier = "Commande No" & Sheets(NomFeuil).Range("B14") & ".PDF"
DossierSauvegarde = Feuil6.[B1]
CheminFichier = DossierSauvegarde & NomFichier
Sheets(NomFeuil).ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminFichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub