Private Sub Workbook_Open()
CommandBars(1).Controls("Outils").Enabled = Environ("Username") = "FRLKEAM"
C1 = " "
Application.OnKey "^f", "Verbit"
Application.OnKey "^g", "ConecCaro"
color_i = 0
Carotruc.ChampRecherche.text = " "
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveMenu
End Sub