Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
p = Application.Match(Environ("username"), Sheets("DernierUtilisateur").Range("A:A"), 0)
If Not IsError(p) Then
Sheets("DernierUtilisateur").Cells(p, 2) = Now ' l'utilisateur existe déjà
Else
p = Sheets("DernierUtilisateur").[A65000].End(xlUp).Row + 1
Sheets("DernierUtilisateur").Cells(p, 1) = Environ("username")
Sheets("DernierUtilisateur").Cells(p, 2) = Now
End If
End Sub