hi yuri,

big thank for your answer.

i try :

  DIMENSION cnamecol2(4)
            cnamecol2(1)="M"
            cnamecol2(2)="U"
            cnamecol2(3)="AC"
            cnamecol2(4)="AK"
            *------------------------------------------------------------------
            FOR x = 1 TO 4
              cvalue = ;
                cnamecol(x)+ TRANSFORM(  nrow ) + ":" +;
                cnamecol(x)+ TRANSFORM(  nrow + m.ncomptRow )
              oWorkSheet.RANGE( cvalue ).Filldown
              
               cvalue = ;
                cnamecol2(x)+ TRANSFORM(  nrow ) + ":" +;
                cnamecol2(x)+ TRANSFORM(  nrow + m.ncomptRow )
              oWorkSheet.RANGE( cvalue ).Filldown
            ENDFOR
          

this code seems work...






>>hi everibody,
>>
>>i want insert a row in a sheet BUT with the formulas ( previous row ).
>>
>>

>>                oRange.entirerow.INSERT && bad because it do'nt copy the formulas
>>

>>
>>which command use ?
>>
>>bernhart
>
>Hi,
>
>You cannot insert intire row, but copy formulas only for particular range. Your options are:
>1. do it step by step, insert entire row, then copy and paste range
>2. Copy entire row with formulas, like:
>
>

>o.Activesheet.Rows("9:9").Copy
>o.Activesheet.Rows("9:9").Insert(xlDown)
>

>
>3. Copy range (part of a row, not entire row) and insert cells similarly as in #2, but then the appropriate ranges of the ALL affected rows will be shifted too.
>
>Good Luck