Private Sub Workbook_Open()
Const mdp = 1
Dim C As Range
With Sheets("Feuil1")
.Unprotect mdp
For Each C In .Range("A9", .[A65000].End(xlUp))
If C < Date Then C.Resize(1, 3).Locked = 1
Next
.Protect mdp
MsgBox "Voici votre banque de temps." & vbLf & vbLf & "Nous sommes le " & _
Date & " et" & vbLf & vbLf & "il est " & Time & ".", , "Bonjour,"
.Select 'ou pas
End With
End Sub