comptage de cellules

Bonjour, j'ai crée la macro suivante:


Sub test()

fin = Range("E2").End(xlDown).Row
lim = 0
For i = 2 To fin
If Cells(i, 5).Value > 0.01 And Cells(i, 5).Value < 0.02 Then lim = lim + Cells(i, 4).Value
Next i
Range("H10").Value = lim

End sub

cette proc me fait la somme sur les cellules de la collonne 4 tant que une cond est respectée ds la coll 5.

Cette proc marche, mais j'aimerais y ajouter qquchose de plus:
j'aimerais que la macro me retourne également le nombre de cellules qui ont satisfait à la condition:
Cells(i, 5).Value > 0.01 And Cells(i, 5).Value < 0.02
ds une msgbox ou ds une cell qqconque de la spreadsheet.
Je pense qu'il faut utiliser un "count." mais je n'arrive pas à l'inclure ds ma boucle.

Si qqun avait une idée ce serait cool!!
Merci