Sub ColorierPoliceDesColonnesFiltrées()
Dim NumColonne As Integer
For NumColonne = 1 To 4 [COLOR="Red"]'remplacer 4 par le nb de colonne de ton tableau[/COLOR]
If ActiveSheet.AutoFilter.Filters(NumColonne).On Then
Cells(3, NumColonne).Interior.ColorIndex = 3
Else: Cells(3, NumColonne).Interior.ColorIndex = xlNone
End If
Next NumColonne
End Sub