Afficher un graphique feuille x sur une feuille y au clic

Const plageclic = "A6:AG31"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim nomgr As String, gr As Object, nbgr As Long, nugr As Long, li As Long
Dim t As Long, l As Long, celgr As Range, titregr As String
Application.ScreenUpdating = False
If Not Intersect(Target, Range(plageclic)) Is Nothing Then
  li = Target.Row
  Set celgr = Target.Offset(2, 3)
  t = celgr.Top
  l = celgr.Left
  On Error Resume Next
  ActiveSheet.ChartObjects(1).Delete
  nomgr = "Repère " & Range("A" & li).Cells(1, 1).Value
  nbgr = Sheets("Graph").ChartObjects.Count
  For nugr = 1 To nbgr
    Set gr = Sheets("Graph").ChartObjects(nugr)
    titregr = gr.Chart.ChartTitle.Characters.Text
    If InStr(1, titregr, nomgr) > 0 Then
      gr.Copy
      ActiveSheet.Paste
      ActiveSheet.ChartObjects(1).Top = t
      ActiveSheet.ChartObjects(1).Left = l
      Exit For
    End If
  Next nugr
End If
ActiveSheet.Range("A1").Select
Application.ScreenUpdating = True
End Sub