Sub test()
chemin = "C:\Users\polux\Desktop\la feuille 1.pdf"
'on sauve la feuil1 en pdf
Sheets("Feuil1").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, _
OpenAfterPublish:=False
'on ajoute une feuille
Sheets.Add After:=ActiveSheet
ActiveSheet.Name = "lePDF"
' et on y met le pdf
ActiveSheet.OLEObjects.Add Filename:=chemin, Link:=False, DisplayAsIcon:=False
End Sub