Cette macro permet de lister tous les noms d'un document sur deux colonnes sur une nouvelle feuille...code à copier dans un module
Option Explicit
Sub ListerFormules()
'Ti
Dim PlageFormules, Cel As Variant
Dim Resultat As Worksheet
Dim Col As Integer
Col = 2
Set PlageFormules = Range("A1").SpecialCells(xlFormulas)
Set Resultat = ActiveWorkbook.Worksheets.Add(, ActiveSheet)
With Resultat
.[A1] = "Cellule"
.[B1] = "Formule"
For Each Cel In PlageFormules
Cells(Col, 1) = Cel.Address(0, 0)
Cells(Col, 2) = " " & Cel.FormulaLocal
Col = Col + 1
Next Cel
End With
End Sub