Affiner une macro "feuille excel par mail&quo

Bonjour,

voila j'ai un classeur excel pour le réapprovisionnement de mon stock

la 3eme feuille est le bon de commande

via un bouton "envoyer" affecter a une macro j'envoi par mail mon bon de commande a mon fournisseur.

ca marche nikel mais je voudrais l'affiner

A l'heure actuelle ca envoie:

ma feuille active (bon de commande) en piece jointe nommé "classeur1"
en objet: "classeur 1"
et mon mail est vide

voici ma macro:

Sub envoiMailEtFeuilleActive()
activeSheet.Copy ' créée une copie de la feuille active
activeWorkbook.sendMail Recipients:="aaaaaa@hotmail.fr" 'envoi Mail
Application.displayAlerts = False
activeWorkbook.Close ' supprime le classeur créé après l'envoi
Application.displayAlerts = True
End Sub


ce que j'aimerais c'est

en objet du mail: Bon de commande

que la piece jointe se nome "bon de commande" ou encore meiux qu'elle soit le corp du mail

et ajouter dans mon mail des formules de politesse

bonjour, vous trouverez ci-joint le bon de commande....

et ma signature a la fin
mon entreprise
adressse
tel
ect

merci a tous je précise également que j'ai office 2007