Private Sub Worksheet_Activate()
Dim lig&, s As Object
lig = 2
Application.ScreenUpdating = False
For Each s In Sheets
If s.Name <> Me.Name Then
Me.Hyperlinks.Add Cells(lig, 1), "", "'" & s.Name & "'!A1", TextToDisplay:=s.Name
lig = lig + 1
End If
Next
Range("A" & lig & ":A" & Rows.Count).Clear 'RAZ
End Sub