Sub Macro1()
Dim tot As Double 'déclare la variable tot
Dim dl As Long 'déclare la variable dl
Dim x As Long 'déclare la variable x
dl = Range("A65536").End(xlUp).Row 'définit la variable dl
'boucle inversée (de la dernière à la première) : sur toutes les cellules éditée de la colonne A (jusqu'à A5)
For x = dl To 5 Step -1
tot = CDbl(Cells(x, 2).Value) 'définit la variable tot
If Cells(x, 1).Value = Cells(x - 1, 1).Value Then 'condition : si la cellule du dessus a la même valeur
tot = tot + CDbl(Cells(x - 1, 2).Value) 'redéfinit la variable tot
Cells(x - 1, 2).Value = tot 'place la somme dans la cellule du dessus (colonne B)
Range(Cells(x, 1), Cells(x, 2)).Delete Shift:=xlUp 'supprime la ligne
End If 'fin de la condition
Next x 'prochaine cellule au dessus
End Sub