Vba excel création de pdf

Bonsoir,
Sous excel, j'ai fait une macro qui devrai imprimer automatiquement le pdf de la feuille active.
Je voudrai utiliser PDF distiller, pour ne pas avoir à saisir le nom du PDF.
Au moment de l'impression, j'ai un message d'erreur me disant que je doit utiliser les polices systèmes pour créer ce pdf car les polices utilisées ne sont pas instalées.
Je desactive donc l'option dans les propriéte de l'imprimante, mais rien à faire, même message d'erreur.

je vous met un peu de code des fois que...

sNomFichierPS = "C:\" & "Essai_AdobbePDF.ps"
sNomFichierPDF = "C:\" & "Essai_AdobbePDF.pdf"
sNomFichierLOG = "C:\" & "Essai_AdobbePDF.log"

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=False, _
ActivePrinter:=Imprimante_AdobePDF, PrintToFile:=True, _
Collate:=True, PrToFilename:=sNomFichierPS

Set PDFDist = New PdfDistiller
PDFDist.FileToPDF sNomFichierPS, sNomFichierPDF, ""
Set PDFDist = Nothing

Kill sNomFichierPS
Kill sNomFichierLOG

Application.ActivePrinter = PrinterDefault

J'utilise la verdion 8 d'acrobat.
Je vous remercie d'avance.

Alex