ligne = 2
Do Until Cells(ligne, 1) = ""
Cells(ligne, 10).FormulaR1C1 = "=SUMPRODUCT((RC1=data!R2C1:R3600C1)*(data!R1C10:R1C15=Temp!R1C10)*data!R2C10:R3600C15)"
Cells(ligne, 11).FormulaR1C1 = "=SUMPRODUCT((RC1=data!R2C1:R3600C1)*(data!R1C11:R1C15=Temp!R1C11)*data!R2C11:R3600C15)"
Cells(ligne, 12).FormulaR1C1 = "=SUMPRODUCT((RC1=data!R2C1:R3600C1)*(data!R1C12:R1C15=Temp!R1C12)*data!R2C12:R3600C15)"
Cells(ligne, 13).FormulaR1C1 = "=SUMPRODUCT((RC1=data!R2C1:R3600C1)*(data!R1C13:R1C15=Temp!R1C13)*data!R2C13:R3600C15)"
Cells(ligne, 14).FormulaR1C1 = "=SUMPRODUCT((RC1=data!R2C1:R3600C1)*(data!R1C14:R1C15=Temp!R1C14)*data!R2C14:R3600C15)"
Cells(ligne, 15).FormulaR1C1 = "=SUMPRODUCT((RC1=data!R2C1:R3600C1)*(data!R1C15:R1C15=Temp!R1C15)*data!R2C15:R3600C15)"
Cells(ligne, 16).FormulaR1C1 = "=VLOOKUP(RC[-15],data!C[-15]:C,16,0)"
Cells(ligne, 17).FormulaR1C1 = "=VLOOKUP(RC[-16],data!C[-16]:C,17,0)"
ligne = ligne + 1
Loop