'# à mettre en haut d'un module classique
Private Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
'# la procédure exemple
Sub Copie_d_Ecran()
Application.WindowState = xlMinimized
keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents
Application.WindowState = xlNormal
Range("A1").Select
ActiveSheet.Paste
End Sub