XL 2013 Enregistrer sous paint

[MASSJIPE]

Bonjour le forum
J'utilise le code suivant mais je voudrais une fois coller dans Paint c'est enregistrer sous un répertoire
comme dans Excel fichier enregistrer sous etc
Une idée
Merci

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