Macro envoi email

Bonjour ,

Je souhaiterai envoyer des email directement d'un texte recupere a partir d'une formule simple en recherche v

Voila adress mail envoyer est B12

le texte est en D2:D12

j'ai essyer de faire une macro , de toute facon le peux que j'ai pu faire et joint avec dans cette problématique .

Bonjour

Le Code dans un Module

Sub envoiPlageCellules_Excel()
ActiveSheet.Range("D2:E12").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True 
With ActiveSheet.MailEnvelope
    .Introduction = "bonjour"
    .Item.To = Range("B12")
    .Item.Subject = Range("E3")
    .Item.Send
End With
Range("A1").Select
End Sub

Cordialement

Bonjour , Merci c'est excatement ce que je veux

est ce que je peux changer objet pour la valeur en A11

et rajouter des personne en copie et leur adress se trouve F2