Email automatique avec Excel

Bonjour,

J'ai mis en place une macro pour l'envoi automatique d'un e-mail.


La macro fonctionne bien, mais je voudrais ajouter une adresse e-mail d'un destinateur (ex.: ***@***) pour que l'on comprenne que le message a été envoyé à la suite de la modification du fichier (et non de la part de la personne qui a modifié le fichier).

Voici la macro pour le courriel:

-----------
Sub Send_Mail()
Dim ol As Object, monmail As Object

DisplayAlerts = False
Set ol = CreateObject("outlook.application")
Set monmail = ol.CreateItem(olMailItem)

monmail.To = "***@***"
monmail.Subject = "[NOTIFICATION AUTOMATIQUE] Modification au fichier."
monmail.Body = "Le fichier a été modifié."
monmail.Send

Set ol = Nothing

End Sub
---------------------

Merci d'avance!