Range("B2").FormulaLocal = "=RECHERCHEV($A2;[TEMPLATE_PAC.xls]Sheet1!$A$9:$T$232;2;0)"
Range("B2").AutoFill Destination:=Range("B2:K2"), Type:=xlFillDefault
For n = 3 To 11
Cells(2, n).FormulaLocal = Replace(Cells(2, n).FormulaLocal, ";2;", ";" & n & ";")
Next n
Range("B2:K2").AutoFill Destination:=Range("B2:K1000"), Type:=xlFillDefault