Détecter un clic sur un onglet personnalisé

Private Sub Workbook Activate(ByVal Sh As Object)
    Dim devTab As CommandBarControl

    On Error Resume Next
    Set devTab = Application.CommandBars.FindControl(Type:=msoControlButton, Tag:="Developer")
    On Error GoTo 0

    If Not devTab Is Nothing Then
        If devTab.Enabled Then
            MsgBox "L'onglet Développeur a été activé."
            ' Ajoutez ici le code que vous souhaitez exécuter lorsque l'onglet est activé
        Else
            MsgBox "L'onglet Développeur a été désactivé."
            ' Ajoutez ici le code que vous souhaitez exécuter lorsque l'onglet est désactivé
        End If
    End If
End Sub

Bonjour,

Je cherche une macro qui détecte un clic sur un onglet "teste" dans un ruban personnalisé et si c'est onglet "teste"

alors on active la feuille 3

J' ai trouver la macro ci-joint qui ne fonctionne pas

Merci d'avance