envoi feuil1 par mail

bonjour à tous,

quelqu'un aurait-il une macro pour envoyer toute la feuil1 par mail via un bouto, please....
j'ai bien le début du code mais il me manque la fin celle qui permet de dire que je veux envoyer la feuil1
d'avance merci


Sub MailOXpress()
Dim dest$, sujet$, texte$
Dim cell As Range
Application.ScreenUpdating = False
dest = 'titi@toto.fr'
sujet = 'trucmuch'
texte = ????????????????????????????????????????????
Shell 'C:\\Program Files\\Outlook Express\\msimn.exe ' & '/mailurl:mailto:' & dest & '?subject=' & sujet & '&Body=' & texte
End Sub


Private Sub CommandButton1_Click()
Call MailOXpress
End Sub