Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
On Error GoTo fin:
Application.ScreenUpdating = False
Application.EnableEvents = False '///
If Target.Address = "$B$1" Then
Range("B45:C200").ClearContents
Rows("3:32").EntireRow.Hidden = True
For i = 3 To 32
If Range("B" & i).Text Like "*" & Range("B1").Text & "*" Then
Rows(i).EntireRow.Hidden = False
End If
Next i
End If
Application.EnableEvents = True '///
Application.ScreenUpdating = True
MsgBox "toto", vbInformation, "TOTO"
fin:
Exit Sub
End Sub