Sub SommeCellules()
Dim Sm As String
Worksheets("Feuil1").Activate
ActiveCell.CurrentRegion.Select
Sm = "=SUM(" & (ActiveCell.CurrentRegion.Address) & ")"
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell = Sm
End Sub