Champ d'une feuille dans un userform

Private Sub UserForm_Initialize()
  ChDir ActiveWorkbook.Path
  With Sheets("shapeForm")
    .[A1:E6].CopyPicture
    .Paste Destination:=.Range("A1") 'crée un shape
    Set s = .Shapes(.Shapes.Count)
    s.CopyPicture
    .ChartObjects.Add(0, 0, s.Width, s.Height * 1.15).Chart.Paste
    .ChartObjects(1).Chart.Export Filename:="monimage.jpg", FilterName:="jpg"
    .Shapes(.Shapes.Count).Delete
    .Shapes(.Shapes.Count).Delete
   End With
   Me.Image1.Picture = LoadPicture("monimage.jpg")
End Sub

FormTableau.xls