VBA

Sub test()

Dim ligne_deb As Long
Dim ligne_fin As Long

Dim rng As Range
' fenetre de selection de la plage de cellules à traiter
Set rng = Application.InputBox("Select a range", "Obtain Range Object", Type:=8)

'on determine la ligne de début et de fin
ligne_deb = rng.Row
ligne_fin = ligne_deb + rng.Rows.Count - 1

'on fait une boucle sur les lignes...
For l = ligne_deb To ligne_fin
 
 ' ici tu fais ton calcul...
 
 
Next

End Sub