Private Sub Worksheet_Calculate()
Dim t As Integer
If ActiveSheet.FilterMode Then
With ActiveSheet.AutoFilter.Filters
For t = 1 To .Count
Intersect(Columns(t + 2), [_FilterDatabase]).Interior.ColorIndex = IIf(.Item(t).On, 3, xlNone) 't+2 si le filtre commence en colonne 3
Next t
End With
Else
Cells.Interior.ColorIndex = xlNone
End If
End Sub