messagerie par xl xp

Bonjour,
>
>J'ai un fichier à envoyer par messagerie
>j'ai écrit cette macro
>
>Sheets("Envois").Select
> Range("A7:H27").Select
> Selection.Copy
> Workbooks.Add
> ActiveSheet.Paste
> Application.CutCopyMode = False
> Application.Dialogs(xlDialogSendMail).Show
> ActiveWindow.Close
> Sheets("Paye").Select
> Range("A1").Select
> Sheets("Paye").Select
> Range("A1").Select
>est_il possible : d'inclure le correspondant, automatiser
l'envoi, supprimer
>le message "voulez-vous enregistre le classeur"et de
retourner au fichier de départ
>xls
>
Merci de vote réponse