Modif aspect Bouton Cde.Sourire en fonction du résultat de recherche

[boullitt93]

Hier Staple1600 et LII, m'ont donné la programmation pour "colorier " mon bouton macro "Sourire".
Mais comment pourrait-on modifier la macro pour que le bouton s'affiche "sourire et jaune" quand le filtre trouve une donnée correspondante à un critère de recherche et " la moue et rouge" quand il ne trouve rien ?

Merci de vos idées!

A+

Ci-dessous la macro :

Sub filtre()
' filtre Macro
Range("recherche").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("A2:I3"), Unique:=False

End Sub
Private Sub Cde_Sourire_Click()
If Me.Cde_Sourire.Caption = "J" Then
Me.Cde_Sourire.Caption = "L"
Me.Cde_Sourire.BackColor = &HFF&
Call filtre
Else
Me.Cde_Sourire.Caption = "J"
Me.Cde_Sourire.BackColor = &HFFFF&
Call filtre
End If
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub