Bonsoir guantanamera,
Pour montrer les antécédents :
Selection.ShowPrecedents
Pour effacer les flèches :
ActiveSheet.ClearArrows
Sub MontreAntecedents()
Selection.ShowPrecedents
end sub
Sub EffaceLesFleches()
ActiveSheet.ClearArrows
End sub
Fais deux macro que tu associes à des touches (ctrl+shift+M) et (ctrl+shift+E) par exemple.
Abel.