Bonjour !

Mon objectif est d'automatiser une opération.
Je dois copier la cellule D1 puis faire un copier coller (spécial : multiply) de D3 à la dernière cellule. Une erreur apparait concernant la sélection de la plage de cellule mais je ne sais comment y remédier.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub modifier()
 
Range("D1").Select
Selection.Copy
 
Dim lastrow As Long
lastrow = Cells(Rows.Count, "D").End(xlUp).Row
Range("D3" & lastrow).Select
 
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
 
 
End Sub