dim adresse as string
Workbooks(classeur).Sheets(feuille).Activate
Range("A1").Value = 1000
Range("A1").Copy
adresse = Range("plagenommée").Address
Range(adresse).Parent.Activate
Range(adresse).Activate
'erreur ici :
ActiveSheet.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False