Jean-Marie

Bonjour Laurent

Je ne sais pas si cela résoudra ton problème

Sub Racine
dim I As Long
For I = 1 to Range("A100").row
cells (I,1) = Sqr(I)
next I
end sub

Change la référence A100 pour indiquer la limite de ton tableau.

@+Jean-Marie