Sub DateFinder_II()
Dim JOUR As Range
Set JOUR = Rows(12).Find(What:=Date, After:=Cells(12, 1), LookIn:=-4163, LookAt:=2, SearchOrder:=1)
Application.Goto JOUR, True
End Sub
Sub DateFinder_II_Light()
Dim JOUR As Range
Set JOUR = Rows(12).Find(Date, Cells(12, 1), -4163, 2, 1)
Application.Goto JOUR, True
'ou
'Application.Goto JOUR
'ou
'JOUR.Select
End Sub