Sub RemplacerFormules()
ScreenUpdating = False
Workbooks.Open Filename:= _
"C:\Users\...\Desktop\....\....\XY\XY 2017.xlsx"
Windows("Base.xls").Activate
Range("K1").Select
ActiveCell.FormulaR1C1 = "XY"
Windows("XY 2017.xlsx").Activate
WS_Selection
Range("B6").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=HLOOKUP(R2C5,INDIRECT(""[Base.xls]""&""Personnel""&""!$D$3:$AI$489""),13,0)"
Range("E6").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=HLOOKUP(R2C5,INDIRECT(""[Base.xls]""&""Personnel""&""!$D$3:$AI$489""),14,0)"
Range("H6").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=HLOOKUP(R2C5,INDIRECT(""[Base.xls]""&""Personnel""&""!$D$3:$AI$489""),15,0)"
Range("B7").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=HLOOKUP(R2C5,INDIRECT(""[Base.xls]""&""Personnel""&""!$D$3:$AI$489""),22,0)"
Range("E7").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=HLOOKUP(R2C5,INDIRECT(""[Base.xls]""&""Personnel""&""!$D$3:$AI$489""),23,0)"
Range("H7").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=HLOOKUP(R2C5,INDIRECT(""[Base.xls]""&""Personnel""&""!$D$3:$AI$489""),24,0)"
Range("B8").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=HLOOKUP(R2C5,INDIRECT(""[Base.xls]""&""Personnel""&""!$D$3:$AI$489""),31,0)"
Range("E8").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=HLOOKUP(R2C5,INDIRECT(""[Base.xls]""&""Personnel""&""!$D$3:$AI$489""),32,0)"
Range("H8").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=HLOOKUP(R2C5,INDIRECT(""[Base.xls]""&""Personnel""&""!$D$3:$AI$489""),33,0)"
Range("B6:H8").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
WS_Selection True
ActiveWindow.Close True