Sub Message()
Dim s As Shape
Set s = Feuil2.Shapes(1)
s.CopyPicture
With Feuil2.ChartObjects.Add(0, 0, s.Width, s.Height).Chart
.Paste
.Export ThisWorkbook.Path & "\Message.jpg", "JPG"
.Parent.Delete
End With
UserForm1.Picture = LoadPicture(ThisWorkbook.Path & "\Message.jpg")
Kill ThisWorkbook.Path & "\Message.jpg"
UserForm1.Show
End Sub