Application.ScreenUpdating = False
Sheets("recherche").Select
ActiveSheet.Unprotect
Sheets("acceuil").Select
Rem lignes ignorées
' Range("F29").Select
' Selection.Copy
' Sheets("recherche").Select
' Range("BC1").Select
' ActiveSheet.Paste
' Set plage = [X3:AZ500]
With Sheets("recherche")
.Range("X3:AZ547").EntireRow.Hidden = True
If Range("F29") <> "" Then
For Each Cell In .Range("X3:AZ547")
If Cell = Range("F29").Value Then Cell.EntireRow.Hidden = False
Next
Else
.Range("A3:AZ547").EntireRow.Hidden = False
End If
End With
Sheets("recherche").Activate
Sheets("recherche").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
Application.ScreenUpdating = True
End Sub