Sub Send_Range()
' Slection de la feuille active.
Sheets("ADIA").Select
Cells.Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Veuillez trouvez ci-dessous le détail des heures pour la semaine"
.Item.To = "vidou59@xxxxxx.fr" ' ici je souhaiterais mettre une plage de cellule contenant la liste de diffusion
.Item.Subject = "Test d'envoi des heures"
.Item.send
End With
End Sub