'La macro se déclenche lorsque la feuille "calendrier des dates" est activée
Private Sub Worksheet_Activate()
Dim n&
'Effacemment de la cellule B8 à la dernière cellule de la colonne B
'(B8 est la premmière cellule de dates)
Range("B8:B" & Rows.Count) = ""
'Boucle sur les feuilles de l'index 3 au nombre de feuilles (ici 24)
'l'index est le numéro d'ordre des feuilles
For n = 3 To Sheets.Count
'Le but est de mettre en colonne B (2) une formule du type =LIEN_HYPERTEXTE("#'01 octobre 2019'!A1")
'pour aller en A1 de la feuille "01 octobre 2019". Le "#" fait partie de la syntaxe Excel de la fonction
'LIEN_HYPERTEXTE. La ligne met la formule en B8 pour la feuille d'index 3, B9 pour la
'feuille d'index 4 etc.
Cells(n + 5, 2) = "=HYPERLINK(""#'" & Sheets(n).Name & "'!A1"",""" & Sheets(n).Name & """)"
Next
End Sub