Sub test()
Range("A1").Value = 1000
Range("A1").Copy
Sheets("Feuil2").Activate
Range("A3:A543").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, SkipBlanks _
:=False, Transpose:=False
End Sub