XL 2016 Gérer un évènement sur un grand nombre de contrôles de même type d'un UserForm

Private Sub UserForm_Initialize()
Me.MyTimer1.Interval = 500 '500 mili secondes!
End Sub
Private Sub MyTimer1_Tick()
Static Enciens As String
 If Enciens <> Me.ActiveControl.Name Then MsgBox "Enter Control " & Me.ActiveControl.Name
 Enciens = Me.ActiveControl.Name
End Sub

'*********************************************
'USERFORM REDUIT DANS LA BARRE DES TACHES
'BY patricktoulon

Option Explicit

'API functions
#If VBA7 Then
    #If Win64 Then
        Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr
        Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
        Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hWnd As LongPtr, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
        Private Declare PtrSafe Function GetActiveWindow Lib "user32.dll" () As LongPtr
        Dim HwnDuSF As LongPtr
    #Else
        Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
        Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
        Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
        Private Declare PtrSafe Function GetActiveWindow Lib "user32.dll" () As Long
        Dim HwnDuSF&
    #End If
#Else
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
    Private Declare Function GetActiveWindow Lib "user32.dll" () As Long
    Dim HwnDuSF&
#End If

Private Sub UserForm_Activate()
    trois_boutons
    ajout_dans_la_taskList Me
End Sub


'on ajoute les boutons minimiser et maximiser  à l'userform
Private Sub trois_boutons()
    HwnDuSF& = GetActiveWindow
    SetWindowLong HwnDuSF&, -16, &H94C80080 Or &H94CF8080
    SetWindowPos HwnDuSF&, 0, 0, 0, 0, 0, &H20 Or &H2 Or &H1
End Sub

Private Sub ajout_dans_la_taskList(myForm)
    SetWindowPos HwnDuSF&, 0, 0, 0, 0, 0, &H2 Or &H1 Or &H10 Or &H80
    SetWindowLong HwnDuSF&, -20, &H101 Or &H40101
    SetWindowPos HwnDuSF&, 0, 0, 0, 0, 0, &H2 Or &H1 Or &H10 Or &H40
End Sub

SetWindowLong HwnDuSF&, -20, &H101 Or &H40101

'Window field offsets for GetWindowLong() or SetWindowLong()
Private Const GWL_STYLE As Long = (-16)
Private Const GWL_EXSTYLE = (-20)

'Window Styles
Private Const WS_SYSMENU As Long = &H80000
Private Const WS_SIZEBOX As Long = &H40000
Private Const WS_MAXIMIZEBOX As Long = &H10000
Private Const WS_MINIMIZEBOX As Long = &H20000
Private Const WS_THICKFRAME = &H40000
'
'ShowWindow() Commands
Private Const SW_SHOWMAXIMIZED       As Long = 3
Private Const SW_SHOWMINIMIZED       As Long = 2
Private Const SW_RESTORE             As Long = 9

'SetWindowPos Flags
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_HIDEWINDOW = &H80

'-----------------------------------
'Place the UserForm in the Task List
'-----------------------------------
Private Sub UserFormInTaksList(Usf As Object)
    SetWindowPos Usf.UsfHandle, 0, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE Or SWP_NOACTIVATE Or SWP_HIDEWINDOW
    SetWindowLong Usf.UsfHandle, GWL_EXSTYLE, WS_THICKFRAME
    SetWindowPos Usf.UsfHandle, 0, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE Or SWP_NOACTIVATE Or SWP_SHOWWINDOW
End Sub