Comment mieux visualiser un filtre automatique

Dim c As Range

Private Sub Worksheet_Calculate()
With ActiveSheet
    On Error Resume Next
    Set c = .AutoFilter.Range
    c.Interior.ColorIndex = xlNone
    On Error GoTo 0
    If .AutoFilterMode Then
        With .AutoFilter
            For i = 1 To .Filters.Count
                If .Filters(i).On Then
                    c(1, i).Interior.ColorIndex = 41
                End If
            Next
        End With
    End If
End With
End Sub

Function ChampActif(c)
  Application.Volatile
  ChampActif = Sheets(Application.Caller.Parent.Name).AutoFilter.Filters.Item(c.Column -   Sheets(Application.Caller.Parent.Name).Range("_FilterDataBase").Column + 1).On
End Function

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

Private Sub Worksheet_Calculate()
Dim t As Integer
  If ActiveSheet.FilterMode Then
    With ActiveSheet.AutoFilter.Filters
      For t = 1 To .Count
        Cells(2, t + 2).Interior.ColorIndex = IIf(.Item(t).On, 3, xlNone) 't+2 si le filtre commence en colonne 3
      Next t
    End With
  Else
    Range("C2:C" & Range("C2").end(xlToLeft).Column).Interior.ColorIndex = xlNone
  End If
End Sub

Private Sub Worksheet_Calculate()
Dim t As Integer
  If ActiveSheet.FilterMode Then
    With ActiveSheet.AutoFilter.Filters
      For t = 1 To .Count
        Cells([_FilterDataBase].Cells(1).row, t + [_FilterDataBase].Cells(1).Column - 1).Interior.ColorIndex = IIf(.Item(t).On, 3, xlNone)
      Next t
    End With
  Else
    Cells.Interior.ColorIndex = xlNone
  End If
End Sub