Dim f
Private Sub UserForm_Initialize()
Set f = Sheets("Appareils")
i = 0
For Each c In [Appareils]
Me.ComboBox1.AddItem c
For Each s In f.Shapes
If s.TopLeftCell.Address = c.Offset(, 1).Address Then NomShape = s.Name: Exit For
Next s
Me.ComboBox1.List(i, 1) = NomShape
i = i + 1
Next c
End Sub
Private Sub ComboBox1_Change()
s = Me.ComboBox1.Column(1)
Sheets("APPareils").Shapes(s).CopyPicture xlScreen, xlPicture
Set image1.Picture = PastePicture(xlPicture)
End Sub