Hello,

personne ne sait comment transformer le sh.Name en lien hypertexte vers l'onglet ?

Merci de votre aide :)

J'en suis là finalement:

Sub Macro1()
Dim i As Integer
'
For i = 1 To Sheets.Count
Cells(i, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
Sheets(i).Name & "!A1", TextToDisplay:="vers " & Sheets(i).Name
Next i
End Sub

Il me reste à ajouter de créer la liste dans un nouvel onglet, de le positionner en 1er et de le nommer "contenu".
Qqun sait faire ça ?

Merci !

Bonjour,

J'ai créé un onglet "Menu", avec un bouton qui lance le code suivant :

ATTENTION : marche sur Excel 2007, non testé sur versions antérieures

Sub Onglets()

Dim i, j As Integer
Dim MENU(5 To 50, 1 To 1) As Variant
Dim FeuilleActive As String

i = 1

FeuilleActive = ActiveSheet.Name

For i = 1 To ThisWorkbook.Sheets.Count

If Sheets(i).Name <> "Menu" Then
Cells(i + 4, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name

' MENU(i + 4, 1) = Sheets(i).Name

End If
Next

'Sheets(FeuilleActive).Range("A5:A54") = MENU

End Sub