joindre feuille à un email

[fr832]

Bonsoir, j'utilise ce code pour ouvrir ma messagerie et envoyer un email a un destinataire.
Comment dois je modifier ce code pour joindre la feuille "FEUIL1" à mon email?
Par avance merci beaucoup

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