Lier une valeur variable à un calendrier.

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call copierF2
End Sub

Private Sub Workbook_Open()
Call copierF2
End Sub
Private Sub copierF2()
Dim sh As Worksheet
Dim lig As Range
Dim cejour As Date, unjour
cejour = Int(Now)
Set sh = ThisWorkbook.Sheets("Feuille 1")
For Each lig In sh.Rows
    unjour = lig.Cells(1, 1)
    If IsDate(unjour) Then
        If Int(unjour) = cejour Then
            lig.Cells(1, 7).Value = ThisWorkbook.Sheets("Feuille 2").Cells(2, 6).Value
            Exit For
        End If
    End If
Next lig
End Sub