Sub FiltrerCouleur(couleur%)
Dim decharge%, plage As Range, cel As Range, f As Range, n%
decharge = 100
Set plage = ActiveSheet.UsedRange
Application.ScreenUpdating = False
plage.EntireRow.Hidden = True
plage.EntireColumn.Hidden = True
For Each cel In plage
If cel.Interior.ColorIndex = couleur Then
Set f = Union(IIf(n, f, cel), cel)
n = n + 1
If n = decharge Then f.EntireRow.Hidden = False: f.EntireColumn.Hidden = False: n = 0: Set f = Nothing
End If
Next cel
If n Then f.EntireRow.Hidden = False: f.EntireColumn.Hidden = False:
End Sub