page de garde

Private Sub CommandButton1_Click()
Dim curSheet As Worksheet, curCell As Range, zoneLien As String

'à adapter : définit ou on va écrire les résultats
'correspond à la première cellule de la colonne de liens
zoneLien = "A1"


With ActiveSheet
    'effacer la zone où on va écrire
    .Range(.Range(zoneLien), .Range(zoneLien).End(xlDown)).Delete Shift:=xlUp
    Set curCell = .Range(zoneLien)
    'boucle sur toutes les feuilles
    For Each curSheet In ThisWorkbook.Sheets
        'si on est pas sur la feuille ou on écrit
        If curSheet.Name <> .Name Then
            'ajouter le lien
            .Hyperlinks.Add Anchor:=curCell, Address:="", SubAddress:=curSheet.Name & "!A1", TextToDisplay:=curSheet.Name
            'se décaler d'une cellule vers le bas
            Set curCell = curCell.Offset(1, 0)
        End If
    Next curSheet
End With
End Sub