VBA EXCEL 2013: Workbook_SheetChange ne se triggers pas

Ma feuille de calcul ajoute et forme une série d'tabs en fonction du contenu d'une table dans le premier onglet. Après cela, j'ai configuré un certain code dans Workbook_SheetChange en surveillant les changements dans ces tabs. Voici le code dans ThisWorkBook:

Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range) Dim test As Ssortingng Dim itm As Range Dim tbl As ListObject Dim switcher As Integer On Error GoTo RefErr: If Target.Cells(1, 1) = "" Then switcher = 0 If Target.Cells(1, 1) = Range("Setup!B1") Then switcher = 1 If Target.Cells(1, 1) = Range("B4") And (sh.CodeName Like "Sheet*") And isMatch(sh.name) Then switcher = 2 If Target.Column = 9 And (sh.CodeName Like "Sheet*") And Target.Row <> 1 Then switcher = 3 Select Case switcher Case 0 GoTo ExitSub 'Rename Tab Case 1 Card.name = Left(Target, 31) 'Change Tab Color Case 2 sh.Tab.ColorIndex = Target.DisplayFormat.Interior.ColorIndex 'Update Verdict Case 3 Set tbl = sh.ListObjects("TC_" & sh.name) If tbl.ListColumns(6).DataBodyRange.Count <> 0 Then For i = 1 To tbl.ListColumns(6).DataBodyRange.Count Set bla = tbl.ListColumns(6).DataBodyRange.Item(i) If bla <> "" Then If bla <> "Pass" Then sh.Cells(4, 2).FormulaR1C1 = tbl.ListColumns(6).DataBodyRange.Item(i) GoTo ExitSub Else sh.Cells(4, 2).FormulaR1C1 = "Pass" End If End If Next i End If Case Else GoTo ExitSub End Select ExitSub: Application.EnableEvents = True Exit Sub RefErr: MsgBox ("Error: " & vbCrLf & Err.Description & vbCrLf & Err.Number) Resume ExitSub Resume End Sub 

Le cas 1 fait reference à une fiche d'installation, pas de problème.
Le cas 2 renvoie les tabs créés dynamicment et modifie la couleur de l'onglet, ce qui fonctionne très bien.
Case 3 lit la colonne de l'object table créée dans les tabs dynamics et modifie la valeur dans une cellule spécifique en fonction de ce qu'elle trouve dans cette colonne. Voici ce qui est étrange. Lorsque les tabs sont créés, accessibles et une valeur modifiée dans ladite colonne, Case 3 n'est jamais déclenché, aucune erreur n'est affichée, rien.
Mais dès que j'ouvre l'éditeur VB, ça marche très bien! Aucune erreur, aucun message, juste le triggersment de l'événement comme il se doit.
Lors du debugging ligne par ligne, aucun problème n'apparait du tout. J'avoue que cela m'a dérouté. J'ai essayé de définir Application.EnableEvents = true dans toutes les parties possibles et peu probables de mon classur, ne change rien.

J'aimerais bien entendre vos reflections à ce sujet. Je suis plutôt sûr qu'il y a des conflits quelque part avec l'ordre déclenchant l'événement ou quelque chose comme ça, mais je n'ai aucun moyen de le savoir. Si vous m'expliquiez comment cela se fait, je vais bien append la feuille à cette question.

Merci beaucoup

• Recherche avancée événement complet ne se triggers pas dans VBA
• Ajouter un événement en cours d'exécution
• Application.Ontime Cancel Echec de la méthode 'ONTIME' de Object 'Application'
• Comment append des events aux controls créés lors de l'exécution dans Excel avec VBA
• VSTO: quel événement ne peut pas se connecter directement à l'object?

PD: J'ai testé mon code sur Excel 2007 et 2010, il a exactement le même comportement étrange (et tout le rest fonctionne très bien).

• Comment les abonnements .Net aux events COM Interop sont-ils gérés lorsque RuntimeCallableWrapper est déconnecté (et comment traiter les events manquants)?
• Comment utiliser le mouvement 'glisser-déposer' sur une balle à un formulaire dans excel vba?
• Lien d'événement sur des éléments créés dynamicment?
• Excel VBA – Shapes Textbox OnChange event
• La feuille de travail_SheetChange ne fonctionne pas