Bonjour,
Ton fichier exemple serait plus pratique qu'une photo du code
O1.range("A1").currentregion ===> tes données sont en ligne ou colonne? ou les deux?
si c'est en colonne : en P1=SOMME($O$1:O1), et tu tires la formule vers le bas
pour la macro, ton tableau est mal déclaré
dim tab1() as variant
mal rempli
tab1=O1.range("A1").currentregion.value
et mal utilisé
for i=lbound(tab1,1) to ubound(tab1,1)
somme=somme+tab(i,1)
next i