Sub hdhd()
ActiveWorkbook.Names.Add Name:="ChartData", RefersTo:=Range("B1:C2")
Range("ChartData")(1, 1).Value = "Top Eight"
Range("ChartData")(1, 2).FormulaArray = "=SUM(LARGE(K2:K40,ROW(INDIRECT(""1:8""))))"
Range("ChartData")(2, 1).Value = "Bottom 31"
Range("ChartData")(2, 2).FormulaArray = "=SUM(SMALL(K2:K40,ROW(INDIRECT(""1:31""))))"
'si cela ne te convient pas, regarde le lien ci-dessous (àparir du 5ième message, j'ai regardé les autres déjà)
'<http://groups.google.fr/groups?q=FormulaArray+names+add+group%3A*.excel*&hl=fr&lr=&ie=UTF-8&oe=UTF-8>
End Sub