Bonjour,
Ce n'est pas tout à fait aussi simple... parce que ta date en TextBox est une donnée de type String (et non de type Date) alors que ta date dans une cellule est une donnée de type Date, soit un nombre !
Tu peux essayer ainsi :
Private Sub CommandButton1_Click()
Dim d
On Error Resume Next
d = CDate(TextBox1.Value)
ActiveSheet.UsedRange.Find(d, , xlValues).Select
End Sub
Cordialement.