Range("A2").Select
ActiveCell.FormulaR1C1 = "Scale Factor"
Range("A3").Select
ActiveCell.FormulaR1C1 = "Max value"
Range("B2").Select
ActiveCell.FormulaR1C1 = "1"
Selection.AutoFill Destination:=Range("B2", Range("B2").End(xlToRight)), Type:=xlFillDefault
Range("B3").Select
ActiveCell.FormulaR1C1 = "=MAX(C)"
Selection.AutoFill Destination:=Range("B3", Range("B3").End(xlToRight)), Type:=xlFillDefault
For i = (1 + (1 + nbercategories + nbercriteria)) To (1 + nbercategories + nbercriteria + 1 + nbercategories + nbercriteria)
Cells(4, i).Select
If IsNumeric(Cells(4, i - nbercategories + nbercriteria)) Then
ActiveCell.Formula = Cells(4, (i - (1 + nbercategories + nbercriteria)))
'ActiveCell.FormulaR1C1 = "=R4C(i-nbercategories + nbercriteria)"
ligne = Range("A65536").End(xlUp).Row
Cells(4, i).AutoFill Destination:=Range(Cells(4, i), Cells(ligne, i))
End If
Cells.Select
Calculate