Private Sub Worksheet_Change(ByVal Target As Range)
'si le changement s'effectue sur une autre colonne que la 1, sort de la procédure
If Target.Column <> 1 Then Exit Sub
'ajoute à la cellule à droite sa valeur + celle de la colonne A
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + Target.Value
Application.EnableEvents = False 'empêche le code de tourner
Target.Value = '' 'remet la colonne A à zéro (le changement ne relancera pas ce code)
Application.EnableEvents = True 'permet au code de tourner
End Sub