Salut,
essaie ça, (vite fait, mal fait ! je suis plutôt programmeur
et mon code va sans doute faire hurler les puristes VBA)
Sub Macro1()
Dim IA As Integer, IC As Integer, Tot As Integer
IC = 3
While Cells(IC, 3).Value <> ""
Tot = 0
IA = 2
While Cells(IA, 1).Value <> ""
If Int(Cells(IA, 1)) = Cells(IC, 3) Then Tot = Tot + 1
IA = IA + 1
Wend
Cells(IC, 4) = Tot
IC = IC + 1
Wend
End Sub
A plus.