Bonjour Paul,
Il faut ajouter ces lignes pour vérifier si la saisie est bien un chiffre et pas autre chose:
'additionne l 'ancienne valeur à la nouvelle
If IsNumeric(Target.Value) Then
Target.Value = Target.Value + Valeur
Else
MsgBox (Target.Value + " n'est pas un chiffre valide")
Target.Value = Valeur
End If
Si le valeur saisie est numérique, on fait le calcul, sinon on affiche un message d'avertissement, et on réinitialise l'ancienne valeur.
Bonne journée