XL 2013 Macro. Créer un dossier et ensuite en PDF

Sub ExportPdf()
Dim Fso As Object, Source_Folder As String, Source_Cell As Range
    Set Source_Cell = ActiveSheet.[K1]
    Source_Folder = "M:\O_DIP\6_Execution_comptable\liquidation_lyon\Bons_commande\Demande\Fiches liaisons et devis\" & Source_Cell & "\"
    Set Fso = CreateObject("Scripting.FileSystemObject")
        If Not Fso.FolderExists(Source_Folder) Then Fso.CreateFolder Source_Folder
        If Fso.FolderExists(Source_Folder) Then
           ActiveSheet.ExportAsFixedFormat xlTypePDF, Source_Folder & Source_Cell & ".pdf"
        End If
    Set Fso = Nothing
End Sub