Sub ArchiverPDF()
Dim CheminFichier$, Feuille$
Application.ScreenUpdating = False
CheminFichier = [B1] & [B2]
Feuille = [B3]
Sheets(Feuille).ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminFichier & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
End Sub