Salut,
admettons que tu saisisse en A1 la valeur que tu cherche:
Sub compteur()
Dim compt As Integer
x = Range('a1').Value
Range('D5
27').Select
For Each vcelule In Selection
c = vcelule.Value
If c = x Then compt = compt + 1
Next
Range('A2').Value = compt
End Sub
Tu auras en A2 le nombre de cellules qui comptiennent ta valeur
A+