Sub ConversionPdf()
Chemin = "C:\Users\PC_PAPA\Desktop\" ' Dossier à modifier ( se termine par "\" )
NomFichier = "Essai.pdf" ' Nom du fichier pdf à modifier
Set Plage = Range("D10:J25") ' Plage à convertir, à modifier
Plage.ExportAsFixedFormat _
Type:=xlTypePDF, Filename:=Chemin & NomFichier, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=True, From:=1, To:=1
End Sub