Macro pr cumuler saisies dans cellule, avec historique...

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect([D10:W10], Target) Is Nothing And Target.Count = 1 Then
   If Target <> "" Then
     Application.EnableEvents = False
     valsaisie = Target.Text
     Application.Undo
     If Target.HasFormula Then
       Target.Formula = Target.Formula & "+""" & valsaisie & """"
     Else
       Target.Formula = "=""" & valsaisie & """"
     End If
     Application.EnableEvents = True
   End If
 End If
End Sub