Copier celulle vers Outlook

Bonjour,

Je viens vers vous car j'ai un problème, je souhaiterai copier un ensemble de cellule et le mettre dans le corps du message de Outlook.

avec des destinataires "a" , "cc", object

En pièce jointe un fichier pour comprendre, je souhaiterai copier A1:A45 et le mettre dans outlook grâce à un bouton envoyer.

Merci de votre aide.

Sisizou

Bonjour

Code dans un Module

Sub envoiPlageCellules_Excel()
ActiveSheet.Range("A1:G45").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
    .Introduction = "bonjour , ci joint les données ..."
    .Item.To = "email@wanadoo.fr"
    .Item.Subject = Range("M5")
    .Item.CC = Range("M6")
    .Item.Send
End With
Range("A1").Select
End Sub

Cordialement

Merci c'est parfait.

Sisizou