Option Explicit
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal c As Range)
For Each c In Selection
If c.HasFormula Then c.Offset(, 1).Select
Next
End Sub
Si la sélection est maintenue (grâce à la souris) sur une seule cellule contenant un formule, il est permis de voir ce qui est inscrit dans le bandeau.