filtrer une couleur ??

Quelques erreurs dans tes macros (tu utilises une sélection pour actualiser ton filtre, alors que rien n'est sélectionné). D'autre par les #VALUE sont dûs à ce que tu utilises une fonction personnalisée qui ne se met pas à jour automatiquement, donc il faut faire un Calculate manuel (enfin, ici, par macro)

remplace donc tes macros par celles-ci et ça marchera :

Option Explicit 'obligatoire !

Sub A_faire()
Dim Cel As Range
Application.ScreenUpdating = False
With ActiveSheet
For Each Cel In .Range("B4:B400")
With Cel
If .Value <> "" Then .Interior.ColorIndex = IIf(CDbl(Date) > .Value - 15, 3, xlNone)
End With
Next Cel
.Range("A3:C3").AutoFilter Field:=3, Criteria1:="3"
.Calculate
End With
Application.ScreenUpdating = True
End Sub

Sub Finfiltre()
Application.ScreenUpdating = False
With ActiveSheet
.Range("A3:C3").AutoFilter Field:=3
.Calculate
End With
Application.ScreenUpdating = True
End Sub

Function CouleurType%(Cell As Range)
Application.Volatile
CouleurType = Cell.Interior.ColorIndex
End Function

bonjour Ti, je te remerci beaucoup pour ta réponse, je vais la tester au boulot car il est l'heure de partir.
je te tient au courant. et encore merci.

Bonjour macpoy, bonjour Ti, un petit coucou! ;-)

déjà à pied d'oeuvre à c't'heure-ci!!! Quel courage! Dis, macpoy, tu dors quand??? Super ta macro, Ti!

Bonne journée et @+

C@thy

Re le forum, Maitre Ti, bonjour Cathy,
comme convenu, je donne des nouvelles des essais effectués avec la formidable macro de TI, après l'avoir adaptée pour mon utilisation, j'ai juste corriger un petit detail,

.Range("A3:C3").AutoFilter Field:=3, Criteria1:="3"

cette partie ne doit pas s'appliquer sur 3 colonnes mais simplement sur 2.
par contre, sauf erreur de ma part, il me semble que cela merde un peu avec excel 97, mais ce n'est pas grave.

ma très chère cathy, lorsqu' une charmante compagnie n'est pas loin, je ne dors point.
merci encore et @ très bientôt.
bon excel à tous.