VBA les mails automatiques

Bonjour à tous chers amis !

Je viens vers vous aujourd'hui pour vous demander s'il n'existerait pas une fonction pour l'envoi des mails avec outlook via l'appuie d'un bouton sur Excel mais mais permet d'ajouter un FROM (donc de la part de qui le mail est envoyé).

Car je possède deux adresses mails sur Outlook et ca m'éviterait de la changer à chaque fois histoire d'avoir un système full automatique ;)

Merci d'avance à la team !

Bonne journée

Dim OL As Object, myItem As Object, wDoc As Object, rng As Object
    Dim nb_lignes As Integer

    Set OL = CreateObject("Outlook.Application")
    Set myItem = OL.CreateItem(olMailItem)

    Sheets("Feuil1").Activate

    ' On prépare le mail en rentrant les paramètres : adresse des destinataires, en copie, objet du mail, corps du mail
    With myItem

        .To = ""
        .CC = ""
        .Subject = " "
        '.Body = ""
        .Display

        Set wDoc = myItem.GetInspector.WordEditor

       ' deuxieme tableau
        Sheets("Feuil1").Range("A1:J11").CopyPicture
        wDoc.Application.Selection.Paste