Public Sub EnvoiMailMessagerieParDefaut()
Dim Adres$, Msg$, Sujet$, URLto$
Adres = "nom@free.fr" 'adres.destin
Sujet = "ici le sujet du msg" 'sujet msg
Msg = "ici le corps du msg" ' corps msg ici on peut mettre des valeurs de cellules ?
URLto = "mailto:" & Adres & "?subject=" & Sujet & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
DoEvents
End Sub