Je ne veux pas recourir à SendKeys "{ESC}"
application.cutcopymode = false
Essayez ce code comme exemple. La ligne clé est 'Application.CutCopyMode = False'
Sub Test()
Range("A1").Copy
MsgBox "View Marching Ants"
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub