Salut
Perso je décomposerai comme suit
dans une cellule autre ex :T1 = nbval(A:A)
sub sommeuh()
t=cells(1,20).value 'nb de ligne
for i=1 to t ' de la ligne 1 à t
if cells(i,1)="x" then 'si la cellule At = "x" alors
p=p+cells(t,2) 'on ajoute à p la valeur de le cellule Bt
end if ' fin condition
next 'on continue
cells(1,4).value=P ' en D1 on met le résultat
end sub