Copie d'apercu d'une multipage

Bonjour à tous,

Je cherche a faire une copie de l'image d'une multi-page et intégrer cette copie a une feuille de calcul afin de pouvoir la joindre a un dossier. Cependant lorsque la mémoire du presse papier est vide mon code plante à "paste" et lorsque la mémoire du presse papier contient quelque chose il me colle tous ce qu'il contient ou a minima la valeur précédente....

Sheets("Photovoltaique").Activate
    Range("A47").Select

UserForm1.MultiPage1.Value = 0
 Me.MultiPage1.Value = 0
   Me.Repaint
    keybd_event vbKeySnapshot, 1, 0&, 0&
    DoEvents

    With ActiveSheet.Paste
       p = .Shapes.Count
    .Shapes(p).Top = .Range("A47").Top
    .Shapes(p).Left = .Range("A47").Left
    .Shapes(p).Height = 800
    .Shapes(p).Width = 640

End With

Sheets("Photovoltaique").Activate
Selection.ShapeRange.PictureFormat.CropTop = 280
Selection.ShapeRange.PictureFormat.CropLeft = 380
Selection.ShapeRange.Top = Range("A47").Top
Selection.ShapeRange.Left = Range("A47").Left

Bon je suis pas très calé sur ce type de code, je ne comprend qu'en partie ce qu'il fais. Si vous voulez bien m'aider à comprendre et à corriger merci.