Paramètre macro coller image liens

Salut à tous,

Je suis un begginer sur le macro et j'aimerai créer un macro qui colle directement une image d'une autre page simpelment en cliquant sur un bouton. Comme on le fait avec l'option coller: Image lié.

J'ai créer le bouton et j'ai récupérer un code:

Private Sub Afficher_Lot_Click()

Application.ScreenUpdating = False

Dim xSheet As Worksheet

Set xSheet = ActiveSheet

If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then

xSheet.Range("'Spong sheep Ruler'!A3:AU8 ").Copy

xSheet.Range("'Sheep schedule empty'!BA7").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End If

Application.ScreenUpdating = True

End Sub

En bleu les celules source d'une qutre page.

En vert le liens vers l'endroit a coller l'image lié.

Deux problème:

1- après avoir désactive le mode création, je clic sur le bouton rien ne se passe!!

2 - Comment faire pour que ce soit bien un collage d'une image lié et pas simplement un collage standard.

Merci d'avance les gars et les filles.

Une modification: les cellules n'ont plus besoin d'être copié en une image lié mais juste une image.

Avec ce code, c'est presque parfait, sauf que l'image se copie en haut a droite de la feuille et que je ne peux pas la déplacer:

Sub CommandButton1_Click()

With Sheets("Spong sheep Ruler").Range("A2:BF7")

.CopyPicture

Sheets("Sheep schedule empty").ChartObjects.Add(0, 0, .Width, .Height).Chart.Paste

End With

End Sub