Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
CheckUnMachin Sh, True
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
CheckUnMachin Sh, False
End Sub
Private Sub CheckUnMachin(Wks As Excel.Worksheet, WksActivate As Boolean)
If Wks.Index Mod 2 = 0 Then
'Ce test est volontairement bidon.
'Il faut juste jongler entre les deux onglets du classeur.
'du code
'du code
Else
If Not WksActivate Then
'On est dans l'execution de Workbook_SheetDeactivate => Workbook_SheetActivate se declenchera dans la foulee
'Du code pour empecher l'exécution de Workbook_SheetActivate mais tout en laissant Application.EnableEvents à True
End If
End If
End Sub