MICROSOFT VISUAL BASIC EXCEL ERREUR 400

Bonjour à tous,
j'essaie d'archive une feuille excel mais en vain.
aider moi car lorsque je lance la macro voici le message que je reçois
"microsoft visual basic erreur 400"

Option Explicit
Sub enregistrer_onglet_en_pdf()

' enregistrer un onglet en PDF

Dim onglet As Worksheet
Dim nom_PDF As String
Dim chemin_PDF As String

' Identifier le nom du fichier PDF à créer
nom_PDF = "Nom PDF.pdf"
' Identifier chemin d'acces du PDF à créer
chemin_PDF = "C:\Utilisateur\MADESS\desktop\" & nom_PDF

' Identification onglet
Set onglet = Worksheets("jeu")

' Selectionner la feuille à enregistrer en PDF
onglet.Select

' Créer le PDF
ActiveSheet.ExportAsFixedFormat Type:=xltypePDF, Filename:=chemin_PDF, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True



End Sub