Private Sub Worksheet_Change(ByVal Target As Range)
'si la cellule active (target) se trouve dans la plage b2:b1000
If Not Application.Intersect(Target, Range('b3:b1000')) Is Nothing Then
'la cellule à droite de la cellule active= sa valeur + la valeur de la cellule active
Target.Offset(0, 1) = Target.Offset(0, 1) + Target
End If
End Sub