Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim F As Range
With Sheets("Feuil1")
Set F = .Columns("A:A").Find(Date, LookIn:=xlValues)
With .Range(.Cells(1, 2), .Cells(F.Row - 1, 2))
.Value = .Value
End With
End With
End Sub