Sub Dépendants()
Dim Cel As Range
On Error Resume Next
For Each Cel In ActiveCell.Dependents
If Err Then MsgBox Err.Description: Exit Sub
If MsgBox(Cel.Address(External:=True) & vbLf & Cel.FormulaLocal, _
vbOKCancel + vbInformation) = vbCancel Then Exit Sub
Next Cel
End Sub