Set compteurligne = Sheets(1).Range("A20:A" & Range("A65536").End(xlUp).Row)
Range("A1").Value = 1
Range("A1").Select
Selection.Copy
Range("D21:E" & compteurligne.Count).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Range("A1").Value = ""