Sub Liens_Hypertextes()
Dim Feuille As Worksheet
Dim Emplacement As String
Application.ScreenUpdating = False
Worksheets("Menu").Columns("B:B").ClearContents
Range("B3").Select
For Each Feuille In Worksheets
If Feuille.Name <> "Menu" Then
Emplacement ="'" & Feuille.Name & "'!A1"
Worksheets("Menu").Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Emplacement, TextToDisplay:=Feuille.Name
ActiveCell.Offset(1, 0).Select
End If
Next Feuille
Application.ScreenUpdating = True
End Sub