XL 2013 calcul somme sur une feuille avec Range et cells

Bonjour
somme = Application.WorksheetFunction.Sum(Sheets("data").Range(Sheets("data").Cells(1, 1),Sheets("data"). Cells(5, 1)))
A+ François

c'est pour ça que j'adore ce forum !!!! c'est parfait
Merci Fanfan38 A+

bonjour a tous
je souhaite faire la même chose mais ma plage est variable.
je comence juste en vba.
merci de votre aide

Dim x As Integer
Dim somme As Double
Sheets("BDC_FR (2)").Select
x = Range("c1").Value + 6
somme = Application.WorksheetFunction.Sum(Sheets("BDC_FR (2)").Range(Sheets("BDC_FR (2)").Cells(7, 6), Sheets("BDC_FR (2)").Cells(7, x)))
Range("F" & (x + 1)) = somme