Essaie ca, le chemin et le nom du fichier sont a adapter
Passer l'apercu a false si tu ne veux pas ouvrir le fichier a la fin de l'export.
Sub exportpdf()
With Sheets("Listing Adjudants") 'Chemin et nom a adapter
.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Listing Adjudants\Listing" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End With
End Sub