Copier Image1 de l'USerForm dans Shape sur la feuille

Private Sub Print_Screen()
    '- API print screen
    keybd_event VK_MENU, 0, 0, 0        ' Alt key down
    DoEvents
    keybd_event VK_SNAPSHOT, 0, 0, 0    ' PrintScreen key down
    DoEvents
    keybd_event VK_SNAPSHOT, 0, VK_KEYUP, 0
    DoEvents
    keybd_event VK_MENU, 0, VK_KEYUP, 0
    DoEvents
    '---------------------------------------------------------------
    '- paste picture to worksheet
   On Error Resume Next
    ActiveSheet.Paste Destination:=ActiveSheet.Range("A1")
    DoEvents
    Application.Wait Now + TimeValue("00:00:01")    ' WAIT 1 SECOND
End Sub