Activer les macro en vba ?

Option Explicit

Sub AfficherOnglets()
Dim Ong As Object
For Each Ong In ThisWorkbook.Sheets
   Ong.Visible = True
   Next Ong
FActiverMacros.Visible = False
ThisWorkbook.Saved = True
End Sub

Option Explicit
Private LaisserMasquées As Boolean

Private Sub Workbook_Open()
AfficherOnglets
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Ong As Object
FActiverMacros.Visible = True
For Each Ong In ThisWorkbook.Sheets
   If Ong.Name <> FActiverMacros.Name Then Ong.Visible = xlSheetVeryHidden
   Next Ong
If Not LaisserMasquées Then Application.OnTime Now + TimeSerial(0, 0, 1), "AfficherOnglets"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
LaisserMasquées = True
End Sub