Private Sub Ok_Click()
Dim i As Integer, j As Integer, Rg As Range
Rows("1:65536").EntireRow.Hidden = False
If Not Me.TextBox1.Value = "" Then
Set Rg = Range("A2:E2").Resize(Range("A65536").End(xlUp).Row)
Set Rg = Rg.Find(What:=Me.TextBox1.Value, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False)
If Rg Is Nothing Then
Me.TextBox1.SetFocus
MsgBox "Il n'y a rien a rechercher !!!", vbExclamation + vbOKOnly, ""
Else
Rg.Select
End If
End If
End Sub