Private Sub CHERCHER_Click()
Dim c As Range, sh As Worksheet
If TextBox1 = "" Or Not IsDate(TextBox1) Then Exit Sub
For Each sh In Sheets
Set c = sh.Columns(1).Find(CDate(TextBox1))
If Not c Is Nothing Then
TextBox2 = c.Offset(, 1).Value
TextBox3 = c.Offset(, 2).Value
TextBox4 = c.Offset(, 3).Value
Exit For
End If
Next
End Sub