Sub envoi_mail()
If MsgBox("Êtes vous sur de vouloir envoyer la feuille par e-mail ?", vbQuestion + vbYesNo, "QUESTION ...") = vbYes Then
On Error Resume Next
Err = 0
ActiveWorkbook.FollowHyperlink Address:="mailto:titi@sfr.fr" & _
"?subject=feuille d'appel" & _
"&body=Bonjour,"
If Err <> 0 Then MsgBox "Une Erreur s'est produite..."
End If
End Sub