Sub Cellulesformules()
Dim cellules As Range, Aire As Range, cel As Range
On Error Resume Next
Set cellules = ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas, 23)
On Error GoTo 0
For Each Aire In cellules.Areas
For Each cel In Aire
Debug.Print "Cellule Examinée: " & cel.Address(), cel.Parent.Name
Afficher cel, True
Afficher cel, False
Next
Next
End Sub
Sub Afficher(cellule As Range, Optional Dependantes As Boolean = True)
Dim plage As Range, cel As Range
On Error GoTo FIN
If Dependantes Then Set plage = cellule.Dependents Else Set plage = cellule.Precedents
Debug.Print , IIf(Dependantes, "Dépendantes:", "Précédentes:")
For Each cel In plage
Debug.Print , cel.Address(), cel.Parent.Name
Next
FIN:
On Error GoTo 0
End Sub