Pour la solution 2/, en particulier pour éviter de mettre des PJ aux mails, il faut copier une plage de cellule, ouvrir le document outlook (via excel) et envoyer d'excel vers outlook la commande (sendkeys) qui permettra de coller dans le document. Une petite temporisation permet à exel et outlook de bien se synchroniser.
Set messagerie = CreateObject("Outlook.Application")
Set email = messagerie.CreateItem(0)
With email
.to = XXXX ' mettre destinataire
.Subject = TTTT ' mettre titre
End With
Range("B8:B24").Copy ' je copie la plage de cellules, y inclure signatuer si besoin
email.display ' j'affiche le mail
Application.Wait (Now + TimeValue("0:00:01")) ' j'attends une seconde
SendKeys "^v", True ' j'envoie la commande Ctrl+V (coller)
Application.CutCopyMode = False
Il ne reste plus qu'à envoyer ... cette solution permet de mettre ton QRcode dans le corps du mail.