Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim c As Range, c1 As Range
With Feuil2
Set c = .Cells.Find(Date, , xlValues, xlWhole)
If Not c Is Nothing Then
Set c1 = .Cells.Find("", c, , , xlByColumns)
If c1.Row < c.Row + 8 Then c1 = Format(Now, "hh:mm")
End If
End With
Application.DisplayAlerts = False
ActiveWorkbook.Save
If Workbooks.Count = 1 Then Application.Quit
End Sub