Sub PU()
' PU Macro
Worksheets("STOCK").Select
ActiveCell.FormulaR1C1 = "=IF(ISBLANK(RC[-1]),"" "",RC[-1]/RC[-2])"
Range("E3").Select
Worksheets("STOCK").Select
Range([E2], [C65536].End(xlUp).Offset(0, 2)).Select
Selection.FillDown
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Ca fonctionne, seulement je suis obligé d'appuyer 2 fois sur mon bouton pour que le calcul se fasse