Private Sub TextBox1_Change()
Application.ScreenUpdating = False
[BDD].EntireRow.Hidden = False 'RAZ
If TextBox1 <> "" Then
Dim r As Range, masque As Range
For Each r In [BDD].Rows
If r.Find(TextBox1, , xlValues, xlPart) Is Nothing _
Then Set masque = Union(r, IIf(masque Is Nothing, r, masque))
Next
If Not masque Is Nothing Then masque.EntireRow.Hidden = True
End If
Application.ScreenUpdating = True
End Sub
Private Sub Userform_Initialize()
On Error Resume Next 'si la feuille est masquée...
Application.Goto Sheets("BDD").[A1]
End Sub
Private Sub UserForm_QueryClose(cancel As Integer, closemode As Integer)
Sheets("Accueil").Activate
[BDD].EntireRow.Hidden = False 'RAZ
End Sub