récupérer la formule d'une cellule

Option Explicit
Sub Quelle_formule()
MsgBox Selection.Address & " : " & Chr(10) & Selection.Formula
End Sub

Function LireFormule(target)
LireFormule = Chr(39) & target.FormulaLocal
End Function

Affiche en commentaire les formules du champ sélectionné
Sub AfficheFormuleCmt()
  On Error Resume Next
  For Each c In Selection
    If c.HasFormula = True Then
        If c.NoteText = "" Then
            c.AddComment c.FormulaLocal
            With c.Comment.Shape.OLEFormat.Object.Font
               .Name = "Tverdana"
               .Size = 8
               .FontStyle = "Normal"
               .ColorIndex = 3
             End With
             c.Comment.Visible = True
             c.Comment.Shape.Select
             Selection.AutoSize = True
          End If
    End If
  Next c
End Sub

Sub EffaceFormuleCmt()
    On Error Resume Next
    Selection.ClearComments
End Sub