Excel enregistrer fichier en pdf avec nom cellule

Bonjour, pouvez vous m'expliquer pourquoi Le Code VBA la ne marche pas?
- Il me cre juste un dosser vide sans le fichier pdf
__________________________________________________________________________________
Sub EnrePDF()
NomDossier = Application.InputBox("Enregistrement PDF", "ARCHIVES PDF", "PRODUESS PDF")
dossier = "C:\Users\KEY JONAS\Desktop\PRODUESS PDF"

On Error Resume Next

'stocket le fichier le dossier existe
Fichierexistant = GetAttr(dossier) And vbDirectory
'Créer le dossier si il n'existe pas
If Fichierexistant = False Then
MkDir (dossier)
End If

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=dossier & "Produc" & "_" & Sheets("ETAT JOURNALIER").Range("H8").Value & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
End Sub
______________________________________________________________________________