Sub UseOutlook()
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
fichier = thisWorkbook.FullName ' ici
MonMessage.to = "titi@gmail.com"
' MonMessage.cc =
' MonMessage.bcc =
MonMessage.Subject = "perso"
MonMessage.Attachments.Add fichier
MonMessage.body = "Je vous envoie un message idiot."
MonMessage.send
Set MonOutlook = Nothing
End Sub