Envoi de mail automatique d'une cellule à une autre + copi de mail

Bonjour,

Je rencontre un petit souci avec mon code VBA (je suis débutant), j'ai pour objectif de programmer à l'aide d'une macro, un envoi de mail via Outlook. Ce mail contient un template qui est crée à base de RechercheV. A l'interieur de ce mail, j'aimerai y joindre plusieurs Pj, vous apercevrez plus bas que mon code n'est pas très très optimisé ahah, dû au faite que pour envoyer plusieurs pj j'ai du réaliser un code qui me permettais d'envoyer une seul PJ et ensuite faire un LoopUntil.
J'aimerais savoir si il est possible de choisir plusieurs Pj à la fois lorsque je clique sur la macro ?

Pour l'envoie de mail je n'arrive pas à mettre plusieurs personnes en copi, j'ai essayé plusieurs méthodes mais je n'y arrives pas :/.

Pour finir j'utilise une macro qui me permet d'envoyer ce que je selectionne c'est à dire de la cellule A4 à F16 et je me pose la question suivante : est il possible au lieu de selectionner l'ensemble du template, de dire au code de directement envoyer le mail de la cellule A4 a F16 ?

Voici le code :

Sub Bouton1_Cliquer()
    Dim oOutlook As Object
    Set oOutlook = CreateObject("Outlook.Application")

    Dim oMail As Object
    Set oMail = oOutlook.CreateItem(0)

    Dim Fichier As Variant

    With oMail

        Dim oObjetWord As Object
        Set oObjetWord = .GetInspector.WordEditor

        .to = "test@outlook.com"
        .CC = "test@gmail.com" ; "test2@gmai.com"
        .Subject = "Devis SR: " & Range("a5") & " / " & Range("b5") & " / " & Range("c5")
        .Body = ActiveCell
         Selection.Copy
         oObjetWord.Range(0).Paste

        .Display
    End With
Do
        Fichier = Application.GetOpenFilename("Tous les fichiers(*.*),*.*")
        MsgBox Fichier
        ajoutpj = MsgBox("Ajouter une autre pièce jointe ?", vbYesNo, "Ajout Pièce Jointe")
        oMail.attachments.Add Fichier
    Loop Until ajoutpj = vbNo

oMail.Send
Set oOutlook = Nothing

MsgBox " Votre mail à bien été envoyé."

End Sub

Je vous remercie

Bonjour soNZO,

Je m'aperçois que vous ne semblez pas comprendre le français
avez-vous un problème avec notre langue, si OUI -> Google Translate

Vous m'avez contacté en MP et je vous ai répondu (ce que je ne fais jamais en général)
et que vois-je... pour le code de ".CC" n'a pas changé

.CC = "test@gmail.com; test2@gmail.com"

Vous êtes débutant comme nous l'avons tout été ici, mais formez-vous par pitié https://www.excel-pratique.com/fr/vba

Bonjour Bruno,

Je n'ai pas vraiment de problème avec notre belle langue française, cependant j'ai un REEL problème avec le code VBA, je me forme de jour en jour mais je bute sur la fin, avec l'envoi de mail. Le code VBA n'étant pas la chose la plus simple à apprendre malgré la determination.

Pour votre aide sur le .CC je vous remercie.

Je suis étudiant et ma fin d'année dépend, si je suis honnête avec vous sur ce devoir.

Alors si je peux vous répondre avec une citation je vois que vous aimez ça ;)

Il ne peut y avoir de plus grand don que celui de donner son temps et son energie pour aider les autres sans rien attendre en retour (N.Mandela)

soNZO.