Sub compte()
Dim derlgn As Integer, Somme As Long
Dim Tabtemp As Variant
Dim NbValeur As Integer, L As Integer
derlgn = Range('A65536').End(xlUp).Row
Tabtemp = Range('A2:A' & derlgn).Value
NbValeur = InputBox('Entrez un nombre de Lignes', 'Calcul', 0)
If NbValeur = 0 Then Exit Sub
For L = UBound(Tabtemp, 1) - NbValeur + 1 To UBound(Tabtemp, 1)
Somme = Somme + Tabtemp(L, 1)
Next
MsgBox 'La somme des ' & NbValeur & ' dernières valeurs est = ' & Somme, vbInformation, 'Résultat'
End Sub