RENATO

bonjour Loic,

Voici qq lignes de script qui répondent à ta demande, mais les exxxxperts et ici ils sont nombreux, vont sûrement te proposer plus simple.

Sub loic38()
Range("C3").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="LOIC", RefersToR1C1:=Selection
Range("c1").Select
ActiveCell.FormulaR1C1 = "=SUM(LOIC)"
End Sub

Bonne fin de soirée

Rénato