Microsoft 365 envoie de mail ( presque résolu )

[pougnarette]

bonjour à tous
je souhaite envoyer par mail un document pré rempli dans lequel se trouve une liste d'adresses mail

j'ai trouvé dans les discussions un code qui me permet de faire cela mais pas de prendre en compte l'adresse qui se trouve dans la cellule M5

en vous remerciant d'avance de votre aide précieuse
pougnarette

 

[pougnarette]

bonjour a tous
j'ai trouver et adapté légèrement ce code qui fonctionne très bien
j'ai juste un problème avec le corps du texte
je voudrais que la corps du texte soit la plage de cellules de C4 à F35
si quelqu'un à le courage de s'y coller
pougnarette






Sub macro3()

Dim LEMAIL As Variant
Set LEMAIL = CreateObject("outlook.Application") 'création d'un objet outlook
With LEMAIL.createitem(olmailitem)
.Subject = Range("c4") & ("le") & Range("d4")
.to = Range("j4")
.Body = de la cellule c4 à la cellule f35

.display
End With

End Sub