Charger une plage de donnée avec le même format dans un Userform

Dim Img As Shape
Private Sub UserForm_Initialize()
    Me.Image1.Visible = False
    On Error Resume Next
    Set Img = Sheets("DATA").Shapes("Picture " & 1)
      On Error GoTo 0
          If Not Img Is Nothing Then
              Img.CopyPicture xlScreen, xlPicture
      Set Me("Image" & 1).Picture = PastePicture
          End If
End Sub

Private Sub CommandButton2_Click()
Me.Image1.Visible = True
End Sub

Private Declare PtrSafe Function IsClipboardFormatAvailable& Lib "user32" (ByVal wFormat&)
Private Declare PtrSafe Function OpenClipboard& Lib "user32" (ByVal hwnd&)
Private Declare PtrSafe Function GetClipboardData& Lib "user32" (ByVal wFormat%)
Private Declare PtrSafe Function CloseClipboard& Lib "user32" ()
Private Declare PtrSafe Function OleCreatePictureIndirect& Lib "olepro32.dll" (PicDesc As uPicDesc, RefIID As GUID, ByVal fPictureOwnsHandle&, IPic As IPicture)
Private Declare PtrSafe Function CopyEnhMetaFile& Lib "gdi32" Alias "CopyEnhMetaFileA" (ByVal hemfSrc&, ByVal lpszFile$)
Private Declare PtrSafe Function CopyImage& Lib "user32" (ByVal handle&, ByVal un1&, ByVal n1&, ByVal n2&, ByVal un2&)

Private Sub UserForm_Initialize()
  With Sheets("comptant")
    .[C10:I32].CopyPicture
    .Paste Destination:=.Range("A1")
    Set s = .Shapes(.Shapes.Count)
    s.CopyPicture
    .ChartObjects.Add(0, 0, s.Width, s.Height).Chart.Paste
    .ChartObjects(1).Chart.Export Filename:="tableau.jpg", FilterName:="jpg"
    .Shapes(.Shapes.Count).Delete
    .Shapes(.Shapes.Count).Delete
   End With
   Me.Image1.Picture = LoadPicture("tableau.jpg")
Kill "tableau.jpg"
End Sub

'ICI PROBLEME AVEC 64 BITS oleaut32.dll
'Private Declare PtrSafe Function OleCreatePictureIndirect& Lib "olepro32.dll" (PicDesc As uPicDesc, RefIID As GUID, ByVal fPictureOwnsHandle&, IPic As IPicture)
Private Declare PtrSafe Function OleCreatePictureIndirect& Lib "oleaut32.dll" (PicDesc As uPicDesc, RefIID As GUID, ByVal fPictureOwnsHandle&, IPic As IPicture)