Private Sub BB_Click()
BB.Caption = IIf(BB, 5, 6) ‘font Webdings
Application.ScreenUpdating = 0
If BB Then [Plage].Rows.Hidden = 0 'True : tout
If Not BB Then 'False : filtre
For i = 1 To [Plage].Rows.Count
If UCase(Cells(i, 5)) <> "X" Then Rows(i).Hidden = 1 Else i = i + 1
Next
End If
End Sub