Sub demasquer()
Set zone = Sheets("DépensesPersonnel BS").UsedRange
'reaffiche toutes les lignes
zone.Rows.Hidden = False
For i = zone.Rows.Count To 1 Step -1
If UCase(zone.Item(i, 21)) = UCase("oui") Then
zone.Item(i, 21).EntireRow.Hidden = True
End If
Next i
End Sub