Sub Bouton18_QuandClic()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If c.HasFormula Then
With c
If Not .Comment Is Nothing Then .Comment.Delete
.AddComment
.Comment.Text Text:=c.FormulaLocal
.Comment.Visible = False
End With
End If
Next c
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.HasFormula Then
With Target
If Not .Comment Is Nothing Then .Comment.Delete
.AddComment
.Comment.Text Text:=Target.FormulaLocal
.Comment.Visible = False
End With
End If
End Sub