XL 2016 Userform

Option Explicit
Event Click(ByVal Info)
Private Cln As New Collection
Public Sub Add(ByVal Frm As MSForms.Frame, ByVal FileName As String, ByVal Info)
   Dim SIe As SupportImage
   Set SIe = New SupportImage
   SIe.Init Me, Frm.Controls.Add("Forms.Image.1"), FileName, Info
   Cln.Add SIe
   End Sub
Public Sub MéthodeRéservéeÀSupportImage(ByVal Info)
   RaiseEvent Click(Info)
   End Sub

Option Explicit
Private WithEvents Image As MSForms.Image, Parent As EnsembleImages, Information
Public Sub Init(ByVal EIs As EnsembleImages, Img As MSForms.Image, ByVal FileName As String, ByVal Info)
   Set Image = Img
   Image.Picture = LoadPicture(FileName)
   If IsObject(Info) Then Set Information = Info Else Information = Info
   End Sub
Private Sub Image_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   Parent.MéthodeRéservéeÀSupportImage Information
   End Sub

Option Explicit
Private WithEvents EIs As EnsembleImages
Private Sub UserForm_Initialize()
   Set EIs = New EnsembleImages

   EIs.Add Me.corp, MachinTrucJpg, ÀRendre

Private Sub EIs_Click(ByVal Info As Variant)

   End Sub