Private Sub Worksheet_Change(ByVal R As Range)
With [A2:B1000] 'plage de 2 colonnes à adapter au besoin
Set R = Intersect(R, .Cells)
If Not R Is Nothing Then
For Each R In Intersect(R.EntireRow, .Cells).Rows 'si entrées/effacements multiples
R.Cells(2).ClearComments 'RAZ
If Application.Count(R) Then
With R.Cells(2).AddComment
.Text CStr(Val(Replace(CStr(R.Cells(1)), ",", ".")) + Val(Replace(CStr(R.Cells(2)), ",", ".")))
.Shape.TextFrame.AutoSize = True 'ajustement des dimensions du commentaire
End With
End If
Next
End If
End With
End Sub