Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dte = Format(Date, "dd mmm yy")
Hre = Format(Now, "hh:mm")
Set Ws1 = Workbooks(ActiveWorkbook.Name).Sheets(ActiveSheet.Name)
With Ws1
'.Range("E1").Value = Application.UserName & " " & Dte & " " & hre
.Range("A1").Value = "Dernier enregistrement par:" & "" & " " & "" & " " & Application.UserName & " " & " - " & Dte & " " & " à " & " " & Hre & ""
.Range("A73").Value = Application.UserName ''''ajoute Nom Utilisateur
End With
End Sub