Bonjour,

j'ai commencé à modifier, mais il doit y avoir des instructions qui ne sont plus valables actuellement :

Sub Macro_Addition()
Set CelluleAdd = CelluleActive
Donnée = InputBox("Entrez la valeur:""Valeur à additionner")
If Donnée <> "" Then
NouvelleValeur = CelluleAdd + Donnée
CelluleAdd.Valeur = NouvelleValeur
End If
End Sub