Microsoft 365 ajouter une pièce jointe à mon mail

Sub LeMail()

Dim LeMail As Variant

Set LeMail = CreateObject("Outlook.Application") 'Création d'un Objet Outlook

With LeMail.CreateItem(olMailItem) 'informe le programme que nous voulons envoyer un mail
    .Subject = "Votre demande de simulation d'indemnité de départ"
    .To = Range("C4")
    .Body = "Votre Indemnité de départ"
    .Display 'pour afficher le mail avant de l'envoyer sinon Send
End With

End Sub