Option Explicit
Private Sub Workbook_Open()
Dim LaDate As String
LaDate = Feuil1.Cells(1, 1).Value
Feuil1.Range("E5:AL35").Find(What:=LaDate, After:=Feuil1.Range("E5"), LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End Sub