MonRuban.InvalidateControl "bouton" error

[sarrsouraa]

bonjour tout le monde je vous explique mon probleme
j'ai ajoute un onglet ds le menu avec un bouton "Addclt" qui en fonction de la feuille selectionne il est enabled ou p voici mon code xml:
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="RubanCharge">
<ribbon startFromScratch="false">
<tabs>
<tab id="POP" label="POP" visible="true">

<button id="AddClt" label="Add Clients" onAction="AddClients" size="large" imageMso="DistributionListAddNewMember" getEnabled="AddClients_Enabled"/>

</tab>
</tabs>
</ribbon>
</customUI>
et ds un module standard j'ai ecrit

Option Explicit

Public MonRuban As IRibbonUI
Public AddClient As Boolean
Sub RubanCharge(ribbon As IRibbonUI)
AddClient = True
Set MonRuban = ribbon
End Sub

'Callback for AddClt onAction
Sub AddClients(control As IRibbonControl)
Call Module1.AddClientsClick
End Sub

'Callback for AddClt getEnabled
Sub AddClients_Enabled(control As IRibbonControl, ByRef returnedVal)
returnedVal = AddClient
End Sub
et ds le workbook j ai ecrit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)

If (Sh.name = "General") Then
AddClient = True
If Not MonRuban Is Nothing Then
MonRuban.InvalidateControl "AddClt"
End If
End Sub

mais parfois Monruban is nothing du coup ya rien qui se passe le menu n'est p mis a jour je cherche depuis 2 jours une solution j ai rien trouve si quelq 'un a une idee merciiiiiiiiiiiiiiiiiiiiiiii