Sub ENVOIS_MAIL()
Dim HyperLien As String
Dim i As Integer
Dim feuille As Worksheet
Dim Ind As Integer
Application.ScreenUpdating = False
Set feuille = ActiveWorkbook.Worksheets('feuil1')
'Définition du message
'mailto : adresse mail du destinataire
'Subject : sujet du message
'Body : corps du message
HyperLien = 'mailto:toto@lala.com' & '?' & 'Subject=piou piou ' & Date & ' '
HyperLien = HyperLien & '&Body=Votre fichier datant du ' & Date & ' est en piece jointe. '
'Ouverture de outlook et entrée des données prédéfinies ci-dessus
ActiveWorkbook.FollowHyperlink HyperLien
End Sub