Bonjour Amet0304, sylvanu,
bienvenue sur le site XLD !
juste pour info :
avec ton instruction :
resultat = Cells(i, 3) * Cells(i, 3)
tu mets dans la variable resultat le carré de Cells(i, 3),
c'est-à-dire : Cells(i, 3)^2 = Cells(i, 3) exposant 2.
comme ta boucle est
For i = x To y
..
Next
: i varie de x à y ;
et en sortie de boucle, resultat contient : Cells(y, 3)^2.
note bien qu'à chaque fois, un carré est remplacé
(dans resultat) par le suivant,
donc tous les carrés précédents qui ont été mis dans resultat sont perdus ;
voilà pourquoi il ne reste que le dernier : Cells(y, 3)^2.
c'est juste pour te montrer ce qui n'allait pas dans ton code VBA ;
prends la solution de sylvanu.
soan