Re,
Range("corpsdumail").Copy
email.display
'si je place un point d'arrêt et ctrl + v sur le mail cela fonctionne
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "^v", True
Sinon rien ne se passe et la macro va jusqu'à la fin sans bug mais sans rien ecrire dans le corps de mail
J'ai cherché à faire un activate du mail, sans succès? Je sais pas si cela est possible??
Ah j'ai trouvé un truc qui marche,
Range("corpsdumail").Copy
email.display
Application.Wait (Now + TimeValue("0:00:01"))
Application.SendKeys "{TAB 2}", True
SendKeys "^v", True
'Application.CutCopyMode = False
Set email = Nothing
Set messagerie = Nothing