Sub som()
Dim nb, add, nbAdd As Integer
Dim c As Range
'Demander à l'utilisateur le nombre de valeurs à additionner (en partant de la fin)
nb = InputBox('Indiquez ici les xèmes dernières données à additionner', 'nombre de données', 3)
If nb = 0 Then Exit Sub 'sortie de la macro si le nombre est 0
Range('A' & Range('A65536').End(xlUp).Row).Select ' ce placer sur la dernière cellule de la colonne
add = 0 'initialisation
res = 0
While nbAdd < nb 'boucle sur le nombre de valeurs à additionner
add = add + ActiveCell.Value 'Addition de la cellule active
nbAdd = nbAdd + 1 'compteur
ActiveCell.Offset(-1, 0).Select ' décalage d'une cellule vers le haut
Wend
'Affichage du résultat
MsgBox 'La somme des ' & nb & ' dernières valeurs est = ' & add, vbInformation, 'Résultat'
Range('A1').Select
End Sub