[XL-2010] Copier cellules d'excel à outlook

Bonjour à tous,

J'aimerais afficher sous forme d'image les cellules copier d'Excel vers Outlook.

Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub envoiPlageCellules
 
ActiveSheet.Range("A1:U26").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
 
With ActiveSheet.MailEnvelope
    .Introduction = "bonjour , ci joint les prévisions de production de la semaine prochaine. Vous en souhaitant bonne réception"
    .Item.To = "****@multipkg.com; ***.Vialloux@multipkg.com; **.Legros@multipkg.com; *.benmlih@multipkg.com; ****@multipkg.com"""
    .Item.Subject = "Prévisions Production"
    .Item.Send
End With
End Sub

Merci pour votre aide.

** Aussi j'aimerais une Msbox de confirmation avant l'envoi du Mail.