VBA fichier excel actif en PJ

Bonjour,

J'ai crée l'envoi d'un mail en vba à partir d'un fichier excel.
Je souhaiterai y mettre ce fichier en pièce-jointe.

Voici mon code :
Private Sub CommandButton1_Click()

Dim LeMail As Variant
Set LeMail = CreateObject("outlook.Application") 'crétion d'un objet Outlook
With LeMail.CreateItem(olMailItem)
.Subject = "Compte rendu d'opération du"
.To = Range("B96")
.Body = " Bonjour," & Chr(10) & "Vous trouverez ci joint le ........ "
.Display

End With

End Sub


Que dois-je ajouter pour y insérer ce fichier car mes essais sont infructueux !!


Merci pour votre aide.