Option Explicit
Sub PDF_nommer_selon_valeur_cellule()
With Sheets("Feuil1")
.PrintPreview 'aperçu
'ActiveSheet.PrintOut 'impression
'Adapter le chemin d'enregistrement
.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\00\Downloads\" & "Bordereau " _
& .Range("d4") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub