Sub Formule_dans_commentaire()
On Error Resume Next
For Each c In Cells.SpecialCells(xlCellTypeFormulas)
If Not c.Comment Is Nothing Then c.Comment.Delete
With c
.AddComment c.Formula
.Comment.Visible = False
.Comment.Shape.TextFrame.AutoSize = True
End With
Next
End Sub