Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.ScreenUpdating = False
On Error Resume Next
Dim Rw&, w As Worksheet, s%
Set w = Worksheets("evenement")
Rw = w.Cells(Rows.Count, 1).End(xlUp).Row
If Rw < 90 Then Rw = 90
w.Cells(Rw, 1).Offset(0, 1) = Now
w.Cells(Rw, 1).Offset(0, 2) = Environ("username")
w.Cells(Rw, 1).Offset(0, 3) = Environ("computername")
'w.Cells(Rw, 1).Offset(0, 4) = Environ("password")
w.Visible = xlVeryHidden
'For s = 2 To Worksheets.Count ' on masque les feuilles
Worksheets(s).Visible = xlVeryHidden
Application.ScreenUpdating = True
End Sub