Sub TrouveDateAuj1()
dateAuj = Format(CDate(Date), "DD/MM/YY")
ActiveSheet.Cells.Find(dateAuj).Select
End Sub
Sub TrouveDateAuj2()
ActiveSheet.Cells.Find(Format(Date, "DD/MM/YY"), LookIn:=xlValues).Select
End Sub
Sub TrouveDate()
ActiveSheet.Cells.Find(Format(InputBox("date?"), "DD/MM/YY"), LookIn:=xlValues).Select
End Sub