Sub Sommaire_Classeur()
Dim Y As Integer, Flag&
With Application
.ScreenUpdating = False
.DisplayAlerts = False
Flag = 0
For Y = 1 To Sheets.Count
If ActiveSheet.Name <> "Sommaire" Then
Else
Flag = 1
End If
Next
If Flag = 0 Then
Sheets.Add(Before:=Sheets(1)).Name = "Sommaire"
End If
With Sheets("Sommaire")
[A1] = "Liste des onglets du classeur"
For Y = 2 To Sheets.Count
ActiveSheet.Hyperlinks.Add Anchor:=Cells(Y, 1), _
Address:="", SubAddress:="'" & Sheets(Y).Name & "'!A1", _
TextToDisplay:="Lien vers " & Sheets(Y).Name
Next Y
End With
End With
Application.ScreenUpdating = True
End Sub