XL 2016 SetTimer incompatible version excel

Public cl As New Classe1
Dim Tic As Long
Private Sub cl_Intervient(ByVal Tic As Long)
        UserForm1.Label1 = Tic
End Sub


Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Tic = 10
    cl.MéthodeRésevée Tic

End Sub

Option Explicit
Rem. Cette classe a pour but de permettre un traitement périodique dans un objet.
Event Intervient(ByVal Tic As Long)   

Public Sub MéthodeRésevée(ByVal Tic As Long)    ' NE PAS UTILISER.'pourquoi???????
     RaiseEvent Intervient(Tic)
End Sub

Public WithEvents cl As Classe1
Dim cls As New Classe1
'Public cl As New Classe1
Dim Tic As Long
Private Sub cls_Intervient(ByVal Tic As Long)
        UserForm1.Label1 = Tic
End Sub


Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Tic = 10
    cls.MéthodeRésevée Tic

End Sub

Option Explicit
Rem. Cette classe a pour but de permettre un traitement périodique dans un objet.
Event Intervient(ByVal Tic As Long)

Public Sub MéthodeRésevée(ByVal Tic As Long)    ' NE PAS UTILISER.'pourquoi???????
     RaiseEvent Intervient(Tic)
End Sub

Option Explicit
Public WithEvents CL As Classe1
Private Sub UserForm_Initialize()
   Set CL = New Classe1
   End Sub
Private Sub CL_Intervient(ByVal Tic As Long)
   Me.Label1 = Tic
   End Sub
Private Sub CommandButton1_Click()
   CL.MéthodeNonRéservée 10
   End Sub

Option Explicit
Event Intervient(ByVal Tic As Long)
Public Sub MéthodeNonRéservée(ByVal Tic As Long)
' Dans ce schéma, elle n'est pas réservée à un module de service, puisqu'elle est invoquée
' dans un UserForm utilisateur. Je fais toujours une grande distinction de couches entre les
' outils que forme la programmation de service et la programmation applicative qui s'en sert.
' Mes modules de classe étant toujours des modules de service, les commentaires y sont
' des guides d'utilisation pour le programmeur d'application qui veut les utiliser.
' Alors quand je mets "NE PAS UTILISER", ça sous-entend: par lui même.
   RaiseEvent Intervient(Tic)
   End Sub