Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim cellule As Range
For Each cellule In [_rubriques]
If cellule = Sh.Name Then
If Not cellule.Offset(0, 1) = True Then '???????????????
PRINCIPALE.Activate
MsgBox "L'accès interdit"
End If
End If
Next
End Sub