Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("LaV").Range("A1") = Format(Now, "dddd dd mmmm yyyy")
Sheets("Dimanche").Range("A1") = Format(Now, "dddd dd mmmm yyyy")
Sheets("Samedi").Range("A1") = Format(Now, "dddd dd mmmm yyyy")
End Sub