Sub COPIE()
' COPIE Macro
ActiveWindow.SmallScroll Down:=-15
Range("A1:K33").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-12
Range("A1").Select
Ret = Shell("C:\WINDOWS\system32\mspaint.exe", 1)
1: On Error Resume Next
AppActivate Ret, True
If Err Then On Error GoTo 0: GoTo 1
Application.SendKeys "^v", True
End Sub