XL 2013 Problème de macro de 2007 à 2013

Bonjour,
J'utilisais excel 2007 avec cette macro qui fonctionnait parfaitement.

Sub editernl()

resto = "xxxx"
restopdf = "wwww"

Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
With pdfjob
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutisaveDirectory") = 1
.cOption("AutosaveDirectory") = "\\Restaurant " & resto & "\2016\Menu PDF"
.cOption("AutosaveFilename") = restopdf
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop
With pdfjob
.cDefaultPrinter = DefaultPrinter
.cClearCache
.cClose
End With
Set pdfjob = Nothing
ActiveWorkbook.FollowHyperlink Address:=""
End Sub

Depuis ma société est passée à la version 2013 et cette macro (ainsi que d'autres) ne fonctionne plus.
Pourriez vous me donner des infos pour adapter celle ci?

Merci pour votre aide.