Sub comptage()
Dim Crit As String
Dim cel As Range
Dim cmpt, Fond As Integer
cmpt = 0
Fond = Range("B1").Interior.ColorIndex
For Each cel In Range("B3:b15")
Crit = Left(cel, 3)
If Crit = Range("A1") And cel.Interior.ColorIndex = Fond Then
cmpt = cmpt + 1
End If
Next
Range("E2") = cmpt
End Sub