bonjour
le fichier est trop volumineux mais voici le code
Sub OFPROD()
'
' OFPROD Macro
'
'
Sheets("OF PRODUCTION").Select
Range("B2").Select
ActiveCell.FormulaR1C1 = "=+calcul!R[3]C[-1]"
Range("C2").Select
ActiveCell.FormulaR1C1 = "=+calcul!R[5]C[5]"
Range("D2").Select
ActiveCell.FormulaR1C1 = "=+calcul!R[6]C[4]"
Range("E2").Select
ActiveCell.FormulaR1C1 = "=+calcul!R[9]C"
Range("E3").Select
Columns("E:E").EntireColumn.AutoFit
Range("H2").Select
ActiveCell.FormulaR1C1 = "=+calcul!R[8]C[-6]"
End Sub