Boucle if calcul somme

Bonjour,

j'ai besoin de vos aides pour calculer la somme sous forme d'une boucle.

ci-joint le fichier

Merci d'avance

Bonjour,

Je n'ai pas regardé votre fichier mais voici 2 exemples, pour une simple somme, avec une fonction ou une procédure :

Function Sommer(plage as range)

for each cell in plage
    Sommer = Sommer + cell.value
next cell

end function

Sub Sommer()

dim plage as range
dim Sommer as double

set plage = range("refàmettre")

for each cell in plage
    Sommer = Sommer + cell.value
next cell

range("celluleresultat").value = Sommer

end sub

Cdlt,