Macro recherche

Private Sub Ok_Click()
Dim i As Integer, j As Integer
Dim bool As Boolean
 
Application.ScreenUpdating = False
 
Rows("1:65536").EntireRow.Hidden = False

If Not Me.Textbox1.Value = "" Then
    If Me.col_A_E = True Then
        For i = 2 To Range("A65536").End(xlUp).Row
            bool = False
            For j = 1 To 5
                If Cells(i, j).Value = Me.Textbox1.Value Then
                    bool = True
                End If
            Next j
            If bool = False Then Rows(i).EntireRow.Hidden = True
        Next i
    ElseIf Me.col_B = True Then
        For i = 2 To Range("B65536").End(xlUp).Row
            If Not Cells(i, 2).Text = Me.Textbox1.Value Then
                Rows(i).EntireRow.Hidden = True
            End If
        Next i
    End If
Else
    MsgBox "Il n'y a rien a rechercher !!!", vbExclamation + vbOKOnly, ""
    Me.Textbox1.SetFocus
End If
 
Application.ScreenUpdating = True

End Sub