Bonjour,
Un test pour la plage A3:B5 en passant par l'éditeur word de l'objet outlook :
Sub ENVOI()
Dim APPMAIL As Object
Dim OBJMAIL As Object
[A3:B5].Copy
Set APPMAIL = CreateObject("outlook.application")
Set OBJMAIL = APPMAIL.CreateItem(0)
With OBJMAIL
.To = "Destinataire"
.Subject = "Sujet"
.Display
.GetInspector.WordEditor.Range(0, 0).Paste
End With
End Sub
A adapter selon votre convenance.
Cdlt,