Sub Macro2()
'
' Macro2 Macro
'
Sheets("Feuil1").Select
Range("D29").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""",R[5]C[-1]*R[-24]C[-2])"
Range("D29").Select
Selection.Copy
Sheets("toto").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B5").Select
End Sub