Private Sub Workbook_Open()
'Affichage des onglets
Application.ScreenUpdating = False
For Each feuille In Worksheets
If feuille.Name <> "Avertissement" Then feuille.Visible = True
Next
Worksheets("Avertissement").Visible = xlSheetVeryHidden
' Protection de l'accès aux macro
' Application.CommandBars("Macro").Enabled = False
Application.Run "Déprotégertout"
' Ouverture de la feuille "Grille" sur la première cellule vide de la colonne B "colonne n° compte"
Sheets("Grille").Select
'Range("I7").End(xlDown).Offset(1, -7).Select
Range("I" & Rows.Count).End(xlUp).Offset(1, -7).Select
'Sheets("Grille").Select
' Range("FX" & .Range("FX" & Rows.Count).End(xlUp).Row).Offset(1, 0).Value = " "
' Protection automatique de toutes les feuilles du classeur
Application.Run "Protégertout"
End Sub