If j = 2 Then
Selection.FormulaArray = _
"=AVERAGE(IF(([delai" & mois & "14.xls]delai!R2C2:R" & nbcell2 & "C2=""CMCA"")*([delai" & mois & "14.xls]delai!R2C6:R" & nbcell2 & "C6=" & Cells(i, 1).Value & ")*([delai" & mois & "14.xls]delai!R2C9:R" & nbcell2 & "C9=1),[delai" & mois & "14.xls]delai!R2C14:R" & nbcell2 & "C14,""""))"