sheet2.cells(1,1).Copy destination:=sheet1.cells(1,1)
or
after your line put
sheet2.cells(1,1).numberformat=sheet1.cells(1,1).n umberformat

"tom" a écrit dans le message de news:
...
Suppose sheet1.A1 has value 0.00 displayed on worksheet. Hoewever, the
value
"0" is stored in the formula box. When I execute the code below, it
displays
"0" on sheet2.A1 instead of 0.00. How can I make this operation give me
0.00?

sheet2.cells(1,1).value = sheet1.cells(1,1).value