Sub macro1()
'Somme sur B2
Range("B2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="TOTO", RefersToR1C1:=Selection
Range("B65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=SUM(TOTO)"
J'avais vraiment besoin des resultats en fin de colone donc j ai fais ca si quelqu'un voit comment faire mieu ou si ca peut aider quelqu'un d'autre
ActiveWorkbook.Names.Add Name:="tructruc", RefersToR1C1:=Range("B65536").End(xlUp).Offset(, 0)
'Somme sur colonne C2
Range("D2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="ELNO", RefersToR1C1:=Selection
Range("D65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=SUM(ELNO)"
ActiveWorkbook.Names.Add Name:="tructruc2", RefersToR1C1:=Range("D65536").End(xlUp).Offset(, 0)
Range("C65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=tructruc/tructruc2"
End Sub