XL 2016 VBA - Évènement TextBox_Enter() non géré en module de Classe

Public Sub Entrer()
'Attribute Entrer.VB_UserMemId = -2147384830
'Attribute Entrer.VB_UserMemId = -2147384830
    If TypeOf MyCtrl Is MsForms.TextBox Then usf.ListBox1.AddItem MyCtrl.Name & " Event [Enter] "
    If MyCtrl.Name <> memoire.Oldcontrol.Name Then
        If TypeOf MyCtrl Is TextBox Then Set memoire.Oldcontrol = MyCtrl
    End If
End Sub

Public Sub Sortie(ByVal Cancel As MsForms.ReturnBoolean)
'Attribute Sortie.VB_UserMemId = -2147384829
'Attribute Sortie.VB_UserMemId = -2147384829
    'If TypeOf MyCtrl Is MsForms.TextBox Then
        ' UserForm1.Label1 = MyCtrl.Name
        If MyCtrl.Name <> memoire.Oldcontrol.Name Then
            usf.ListBox1.AddItem memoire.Oldcontrol.Name & " Event [Exit] "
        Else
            usf.ListBox1.AddItem MyCtrl.Name & " Event [Exit] "
        End If
    'End If
End Sub

Public Sub AvantUpdate(ByVal Cancel As MsForms.ReturnBoolean)
'Attribute AvantUpdate.VB_UserMemId = -2147384831
'Attribute AvantUpdate.VB_UserMemId = -2147384831
    If TypeOf MyCtrl Is MsForms.TextBox Then usf.ListBox1.AddItem MyCtrl.Name & " Event [BeforeUpdate] "
End Sub

Public Sub ApresUpdate()
'Attribute ApresUpdate.VB_UserMemId = -2147384832
'Attribute ApresUpdate.VB_UserMemId = -2147384832
    If TypeOf MyCtrl Is MsForms.TextBox Then usf.ListBox1.AddItem MyCtrl.Name & " Event [AfterUpdate] "
End Sub

Sub test()
MsgBox "hello Dudu2"
End Sub

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "Classe2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public valeur
Public Property Get Truc()
Attribute Truc.VB_UserMemId = 0
Truc = valeur
End Property

Public Property Let Truc(kèkechose)
valeur = kèkechose
End Property