Private Sub UserForm_Initialize()
'Shape nommé toto (à adapter)
With ActiveSheet.Shapes("Toto")
'Dimensions de l'usf adaptées à l'image
UserForm2.Height = .Height + 25
UserForm2.Width = .Width + 10
'Copie de l'image
.CopyPicture , xlBitmap
'Vers le fond de l'USF
Set UserForm2.Picture = PastePicture(xlBitmap)
End With
End Sub