C'est vrai qu'avec un SI, ça doit être faisable.
Sinon, un truc dans le style :
dim la_somme as float
la_somme = 0
Range("B1" ).select
while (not (isempty(activecell.value)))
if (activecell.offset(0,-1).value = "*" ) then
la_somme = la_somme + activecell.value
endif
activecell.offset(1,0).select
wend
msgbox "toto", la_somme
Ou un truc dans le style...
ATTENTION ! C'est fait de tête, et ça n'a pas été testé.
Donc si ça fonctionne pas, c'est p'tet normal. Mais en tout cas, l'idée est là : tu te colles sur ta 1ère cellule, tu regardes si la cellule à coté est "*" et si oui, tu ajoutes à une variable, et tu boucles en descendant, jusqu'à ce qu'on trouve une cellule vide dans la colonne B.
Voilà
[jfdsdjhfuetppo]--Message édité par Wons--[/jfdsdjhfuetppo]