Envoi par outlook d'un fichier PDF créé par macro

Sub ToPdf() 'adaptes ta macro
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
'....
NomPdf = Left(NomExcel, Len(NomExcel)) & ".pdf"
With pdfjob
'...
.cOption("AutosaveDirectory") = ThisWorkbook.Path
'....
End With
Set pdfjob = Nothing

mail_pdf (ThisWorkbook.Path & "\" & NomPdf)

End Sub

Sub mail_pdf(fichier$)
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
    .To = "jeansérien@jenesaizou"
    .CC = ""
    .BCC = ""
    .Subject = "blabla"
    .Body = "blabla"
    .Attachments.Add fichier
    .Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub