PRoblème de recherche du dernier fichier dans une macro EXCEL

Sub PdfwithMail()
Dim NomExcel$, NomPDF$, pDossier$, Destinataire$, Objetmessage$
Dim ol As Object, myItem As Object

Application.DisplayAlerts = False

NomExcel = ActiveSheet.Name
NomPDF = NomExcel & ".pdf"
pDossier = "\\Gpao\Commun\10 - DIRECTION TECHNIQUE\102 - MAINTENANCE\10210 - Maintenance corrective\Demandes d'intervention de maintenance\" 'ThisWorkbook.Path

'création du fichier PDF
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
With pdfjob
    If .cstart("/NoProcessingAtStartup") = False Then
        MsgBox "Ne peu pas lancer PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"
        Exit Sub
    End If
    .cOption("UseAutosave") = 1
    .cOption("UseAutisaveDirectory") = 1
    .cOption("AutosaveDirectory") = pDossier
    .cOption("AutosaveFilename") = NomPDF
    .cOption("AutosaveFormat") = 0
    .cClearCache
End With
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until pdfjob.cCountOfPrintjobs = 1
    DoEvents
Loop
pdfjob.cPrinterStop = False
Do Until pdfjob.cCountOfPrintjobs = 0
    DoEvents
Loop
With pdfjob
    .cDefaultprinter = DefaultPrinter
    .cClearCache
    .cClose
End With
Set pdfjob = Nothing

'prend le fichier et l'envoi par mail
Destinataire = "romain.verguet@thierrysa.com"
Objetmessage = "Demande d'intervention maintenance"
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.To = Destinataire
myItem.Subject = Objetmessage
myItem.Body = "Alerte, nouvelle demande d'intervention de maintenance"
myItem.Attachments.Add pDossier & NomPDF
myItem.Send
Set myItem = Nothing
Set ol = Nothing

End Sub