XL 2016 Code VBA, Sauvegarde PDF un répertoire précis

Private Sub Imprime1PDF()
Dim Repertoire As String
Application.ScreenUpdating = False
'---Test existence du dossier de sauvegarde---
On Error Resume Next
MkDir "c:\PDFS\"
MkDir "c:\PDFS\" & Year(Date)
Repertoire = "c:\PDFS\" & Year(Date) & "\RH\": MkDir Repertoire
On Error GoTo 0
'---Sauvegarde au format PDF dans le dossier ---
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Repertoire & ActiveSheet.Name, Quality:=xlQualityStandard, IncludeDocProperties _
:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Application.ScreenUpdating = True
End Sub

Option Explicit
Sub PDF_onglet_actif()
    Application.ScreenUpdating = False
    Dim nom As String, où As String
    nom = ActiveSheet.Name
    où = "C:\Users\DoubleZero\Downloads\"    ' adapter
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=où & nom & " - " & Format(Now(), "yyyy mm dd à hh-mm") & ".pdf"
    Application.ScreenUpdating = True
End Sub