somme des effectifs de lignes excel via VBA

Je voudrais créer un code VBA qui puisse parcourir ma colonne excel "Libellé" pour relever tous les "a" et me donner l'effectif total de "a" dans la colonne "Effectif" c'est à dire Effectif des "a" = 2+1+7=10

Merci d'avance.

Libellé Effectif
a 2
b 5
a 1
c 5
a 7

regarde du côte de

Code:

---

Application.worksheetfunction.sumif(arg1,arg2,arg3)

---

Salut soul330 et le forum
Un exemple

Code:

---

1 2 3 4

Dim Cel as range, Tot as long for each cel in columns(1) if cel = "a" then tot=tot+cel.offset(0,1) next cel

---

A+