j'ai changer mon dossier de nom mais cela ne fonctionne pas ..
Sub enr_pdf()
Sheets("Création Facture").Select
ActiveSheet.PageSetup.PrintArea = "E1:j44" 'remplacer la plage par ta plage
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\roxane\Desktop\Pilotage de l'activité", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub