Sub validation()
'
' validation Macro
'

'
    Range("B2:B3").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-1],'\\stib-mivb.be\org\OPERATIONS\BU BUS\MOVEMENT\DELTA\_common\MI_PM\BDD-MONITEURS\[BDD-agents.xlsm]PAS TOUCHER BDD'!R1C1:R65536C3,2,0)"
    Range("C4:J4").Select
    ActiveCell.FormulaR1C1 = _
        "=HYPERLINK(""U:\OPERATIONS\BU BUS\MOVEMENT\DELTA\_common\MI_PM\DOSSIERS AGENTS\""&R[-2]C[-2])"
    Range("K2:K4").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(RC[-8]:R[1]C[-1],""<>"")"
    Range("P2:Q3").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-15],'\\stib-mivb.be\org\OPERATIONS\BU BUS\MOVEMENT\DELTA\_common\MI_PM\BDD-MONITEURS\[BDD-agents.xlsm]PAS TOUCHER BDD'!R1C1:R65536C5,5,0)"
    Range("P4:Q4").Select
    ActiveCell.FormulaR1C1 = _
        "=HYPERLINK(""[Suivi2021 complet pour utilisation.xlsm]'Missions Effectuées'!A""&RC[-14],""Vers mission"")"
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
End Sub