Bonjour Gabinos, Steelson, bonjour le forum,
Peut-être comme ça :
Sub Macro1()
Dim CEL As Range
Dim C As Integer
For Each CEL In Range("B5").CurrentRegion
If CEL.Interior.Pattern = xlSolid _
And CEL.Interior.PatternColorIndex = xlAutomatic _
And CEL.Interior.Color = 16764057 _
And Left(CEL.Value, 1) = "*" Then
C = C + 1
End If
Next CEL
MsgBox C
End Sub