filtrer une MFC ???

Bonsoir,
et pourquoi ne pas utiliser une fonction évènementielle pour colorer la cellule, du genre :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 6 Then
If DateValue(Now()) > Cells(Target.Row, Target.Column + 1) - 15 Then
Cells(Target.Row, Target.Column + 1).Interior.ColorIndex = 44
Else
Cells(Target.Row, Target.Column + 1).Interior.ColorIndex = xlNone
End If
End If
End Sub

(déclenchée après saisie sur colonne F)

du coup la cellule adjacente est effectivement colorée et le test CouleurType fonctionne

oups, l'exemple modifié n'a pas suvi la première fois!

Re le forum, bonsoir Tatiak,
merci beaucoup pour ton aide, il ne me reste plus qu'a l'adapter à l'enorme classeur que je suis entrain de développer grâçe aux excelliens comme toi.
merci beaucoup @ +