Sub Packing_Plan()
'
' Packing_Plan Macro
'
Sheets(2).Activate
'
    Range("B5").Select
    ActiveCell.FormulaR1C1 = "=[PackingSpecsFormat.xlsx]R8C22"
    Range("D5").Select
    ActiveCell.FormulaR1C1 = "=[PackingSpecsFormat.xlsx]R7C6"
    Range("E5").Select
    ActiveCell.FormulaR1C1 = "=[PackingSpecsFormat.xlsx]R8C7"
    Range("F5").Select
    ActiveCell.FormulaR1C1 = "=[PackingSpecsFormat.xlsx]R7C22"
    Range("L5").Select
    ActiveCell.FormulaR1C1 = "=[PackingSpecsFormat.xlsx]R15C23"
    Range("P5").Select
    ActiveCell.FormulaR1C1 = "=[PackingSpecsFormat.xlsx]R9C9"
    Range("Q5").Select
    ActiveCell.FormulaR1C1 = "=[PackingSpecsFormat.xlsx]R9C23"
    Range("R5").Select
    ActiveCell.FormulaR1C1 = "=[PackingSpecsFormat.xlsx]R29C7"
    Range("S5").Select
    ActiveCell.FormulaR1C1 = "=[PackingSpecsFormat.xlsx]R28C7"
    Range("T5").Select
    ActiveCell.FormulaR1C1 = "=[PackingSpecsFormat.xlsx]R29C23"
    Range("V5").Select
    ActiveCell.FormulaR1C1 = "=[PackingSpecsFormat.xlsx]R13C7"
    Range("W5").Select
    ActiveWindow.LargeScroll ToRight:=1
    Range("X5").Select
    ActiveCell.FormulaR1C1 = "=[PackingSpecsFormat.xlsx]R24C22"
    Range("AA5").Select
    ActiveCell.FormulaR1C1 = "=[PackingSpecsFormat.xlsx]Feuil2!R10C9"
    Range("AA6").Select
    ActiveWindow.LargeScroll ToRight:=-2
    Range("B6").Select
End Sub