Sub test()
Dim MonOutlook As Outlook.Application
Dim LeMail As Outlook.MailItem
Dim LesMails As Object
Dim MaRéponse As Outlook.MailItem
Set MonOutlook = Outlook.Application
Set LesMails = MonOutlook.ActiveExplorer.Selection
For Each LeMail In LesMails
Set MaRéponse = LeMail.Reply
MaRéponse.Body = "Test d'ajout de texte" & MaRéponse.Body
MaRéponse.BCC = "[EMAIL="toto@toto.fr"]toto@toto.fr[/EMAIL]"
MaRéponse.Send
Next
End Sub