'Funded by
Range("G4").Select
ActiveCell.Formula = "=VLOOKUP(E4,$R$10:$S$20,2,FALSE)"
Range("G4").Select
Selection.AutoFill Destination:=Range("G4:G" & dl)
'Building Type
Range("A4").Select
ActiveCell.FormulaR1C1 = "Maison mere"
Range("A4").Select
Selection.AutoFill Destination:=Range("A4:A" & dl)
'Days
Range("O4").Select
ActiveCell.FormulaR1C1 = _
"=INDEX(FREQUENCY(ROW(INDIRECT(R4C[2]&"":""&R4C[3])),RC[-2]:RC[-1]),2)"
Range("O4").Select
Selection.AutoFill Destination:=Range("O4:O" & dl)