Private Sub Worksheet_Calculate()
Dim cel As Range, plage As Range
For Each cel In Range("F1", [F65536].End(xlUp))
If UCase(cel) = "OUI" Then _
Set plage = Union(cel, IIf(plage Is Nothing, cel, plage))
Next
If Not plage Is Nothing Then plage.EntireRow.Hidden = True
End Sub