XL 2013 Selection de cellules pour envoi automatique

[flo189]

Bonjour,

Sur une feuille je souhaiterais sélectionner une partie défini pour envoyer via un bouton sur des adresses mails en automatique.

Par exemple sur mon fichier joint je voudrais seulement envoyer de la ligne 4 à la ligne 27.

Merci de votre aide.


Voici mon code :

Sub Mail()

' Mail Macro

Dim Destinataires(3) As String, Sujet As String
Dim AccuseReception As Boolean
'Modifier les mails des destinataires
'Destinataires(1) = "...@...fr"
'Destinataires(2) = "...@...fr"
'Destinataires(3) = "...@...fr"
Sujet = "Plan empotage container"
AccuseReception = True
'Nom de la feuille (remplacer Recap par celui de la Feuille à envoyer)
ThisWorkbook.Sheets("Plan Empotage").Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
End Sub