Sub EnvoiUnMail()
Dim MailAd As String
Dim msg As String
Dim Subj As String
Dim URLto As String
MailAd = Sheets('Feuil2').Range('B3')'adresse @mail
Subj = Sheets('Feuil2').Range('B4')'Titre du mail
msg = Sheets('Feuil2').Range('B5')'message
URLto = 'mailto:' & MailAd & '?subject=' & Subj & '&body=' & msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub