c'est une macro que j'ai recopié sur le forum:
ption Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim AncVal As Variant, NouvVal As Variant
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$E$5" Then Exit Sub
Application.EnableEvents = False
NouvVal = Target.Value
Application.Undo
AncVal = Target.Value
If IsNumeric(AncVal) And IsNumeric(NouvVal) Then
Target.Value = NouvVal + Target.Value
End If
Application.EnableEvents = True
End Sub
je n'arrive pas a la transposer sur autre fichier excel ( après avoir copié la macro sur le fichier d'origine)
merci