Que diriez-vous d’avoir une liste de feuilles, chacune étant liée par un lien hypertexte vers leur nom de feuille respectif dans le classeur? Eh bien, cela peut être fait avec le code suivant – Sub CreateHyperlinkedSheetList ()

Dim ws As Worksheet Application.ScreenUpdating = False ActiveSheet.Range (« A: A »). Clear ‘clear existing list For Each ws In ActiveWorkbook.Worksheets With ActiveSheet.Range (« A » & Rows.Count) .End (xlUp)