XL 2016 Code VBA pour envoi de mail avec pdf en piece jointe

    fichier = "E:\Comptabilite\Data\Facture Acompte\" & ListBox3.Value & ""
    With oBjMail
        .Display
        .To = mail_t ' le destinataire
        '.CC = ""
        '.BCC = ""
        .Subject = "Facture d'acompte"
        .HTMLBody = strbody & " " & .HTMLBody
        .Attachments.Add fichier
        .Display
        '.Send
    End With

Sub EnvoiMail()
'
Dim repertoire, fichier As String
Dim OutApp As Object, OutMail As Object

    repertoire = "C:\Users\manos\Desktop"
    fichier = "DECOMPTE ACQUEREUR_" & Format(Now(), "dd.mm.yyyy")

    Sheets("Decompte Acquéreur").Range("B1: E60"). _
            ExportAsFixedFormat Type:=xlTypePDF, _
                                Filename:=repertoire & "\" & fichier, _
                                Quality:=xlQualityStandard, _
                                IncludeDocProperties:=True, _
                                IgnorePrintAreas:=False, _
                                OpenAfterPublish:=False

    Set OutApp = CreateObject("outlook.application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = ""
        .Cc = ""
        .Attachments.Add (repertoire & "\" & fichier & ".pdf")
        .Subject = "DECOMPTE ACQUEREUR"
        .Body = "Bonjour, Veuillez trouver en pièce jointe le fichier PDF du décompte acquéreur."
        .Display
    End With

End Sub

Option Explicit

Sub PDF_Mail()

Dim Ws As Worksheet, Chemin$, NFichier$
Dim OutApp As Object, OutMail As Object

Set Ws = Worksheets("Decompte Acquéreur")

Chemin = CreateObject("WScript.Shell").specialFolders("Desktop") & "\"
NFichier = "DECOMPTE ACQUEREUR_" & Format(Date, "dd.mm.yyyy")

'*********** PDF
Ws.PageSetup.PrintArea = ("$B$1: $E$60")
Ws.ExportAsFixedFormat xlTypePDF, Chemin & NFichier, Quality:=xlQualityStandard, IncludeDocProperties:=True
NFichier = Chemin & NFichier & ".PDF"
'***********

'*********** Envoie le Mail
'On Error Resume Next ' Si pb
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
    .To = ""  ' A remplir !!!
    .CC = ""  ' A remplir !!!
    .Subject = "DECOMPTE ACQUEREUR"
    .Body = "Bonjour, Veuillez trouver en pièce jointe le fichier PDF du décompte acquéreur."
    .Attachments.Add NFichier
    .Display    ' Visualisation fichier
'    '.Send      ' Envoi fichier à activer pour l'envoi
End With
'***********
Set Ws = Nothing: Set OutApp = Nothing: Set OutMail = Nothing
End Sub