Envoi par mail selon un cellule de reférence

Bonjour

Avec l'aide de ce site j'ai pu progresser légèrement sur l'envoi par mail d'un document le seul problème c'est qu'il envoi a l'adresse mentionnée dans la macro. j'aimerai que l'adresse qui se trouve en L3 soit l'adresse d'envoie puisque celle-ci change en fonction de la cellule C6.

Merci d'avance si cous avez une solution

Bonne journée a tous

Sub envoiPlageCellules_Excel()

ActiveSheet.Range("A1:h35").Select ' la plage de cellules à envoyer

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope

.Introduction = "Bonjour , veuillez trouver ci-dessous la décharge de votre agent. Cordialement" 'le texte

.Item.To = "free94000@free.fr" 'l'adresse

.Item.Subject = "le sujet"

.Item.Send

End With

End Sub

Bonjour

With ActiveSheet.MailEnvelope
    .Introduction = "Bonjour , veuillez trouver ci-dessous la décharge de votre agent. Cordialement" 'le texte
    .Item.To = Range("L3").Value  'l'adresse
    .Item.Subject = "le sujet"
    .Item.Send
End With

Tout simplement ???

Dis-moi

Bye

UN GRAND TRÈS GRAND MERCIIIIIII

Enchantée de voir ton enchantement...et de tes remerciements

C'est pour des gens comme toi que cela fait plaisir de travailler.

Cela dit, là je n'ai vraiment aucun mérite

lol

Très bonne soirée à toi

oui, un GRAND merci, car je peux concrétiser mon projet grâce à vos talents.

Bien amicalement