Bonjour,
Pour l'enregistrement du PDF, essaie ainsi :
Sub Macro1_PDF()
Dim chemin$, fichier$
chemin = "C:\Users\pastor\Desktop\Augustin Pastor\Demande d'achats\"
fichier = "Commande achat " & Format(Now, "yyyymmdd hhmm") & ".pdf"
With ActiveSheet
.PageSetup.PrintArea = "A1:H42"
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=chemin & fichier
End With
End Sub