PB exécution code "événementiel" si plusieurs classeur ouvert

Bonjour à tous,
je travail sur un classeur qui contiens des code événementiels, ceux si fonctionnent que si je n'ai aucune activité sur un autre classeur excel....si c’est le cas, les codes ne se déclenchent plus. je suis alors obliger de fermer complètement excel et ré-ouvrir mon classeur (seul) pour retrouver ces fonctionnalités liés aux événements.
Le code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim resultat As String
 Sheets("Gestionnaire XXXX").Unprotect ("mdp")
If Not Intersect(Target, ActiveWorkbook.Sheets("Gestionnaire XXXX").Range("G6:G905")) Is Nothing Then
       'instructions
resultat = InputBox("Veuillez indiquer dans le champ ci-dessous le nombre XXXXXX", "saisie xxxxxx", "0")
 ActiveCell.Offset(-1, 4).Value = resultat
End If
Dim cell As Range
For Each cell In ActiveWorkbook.Sheets("Gestionnaire XXXX").Range("G6:G905")
If cell = "" And cell.Offset(0, -1) <> "" And cell.Offset(0, -5) <> 1 And cell.Offset(0, 5) <> "" Then
Dim Rep As Integer
     Rep = msgbox("Le prochain audit procces de l'opérateur " & cell.Offset(0, -3) & " au poste " & cell.Offset(0, -2) & " prévu le " & cell.Offset(0, 5) & " doit être réalisé par un XXXXXX." & Chr(10) & Chr(10) & " - cliquer sur OK pour prévenir par E-mail votre partenaire XXXXX." _
     & Chr(10) & Chr(10) & " - cliquer sur annuler pour sortir de la procédure ", vbOKCancel + vbInformation, "Information")
     If Rep = vbOK Then
         ' ici le traitement si réponse positive
        cell.Offset(0, -5) = 1
         Call Mail_auto
     Else
         ' ici le traitement si réponse négative
        Exit Sub
     End If
     End If
     Next
End Sub

ce qui m'inquiète, c’est que je ne trouve aucune discussion sur ce type de PB ....
je sèche complètement.

merci par avance aux personnes qui voudront bien m'aider.