Macro : liste lien hypertexte vers onglets

Bonjour,

J'aimerais créer une macro qui :

1) créer un nouvel onglet

2) le positionne en 1er

3) le nomme "contenu"

4) y créé la liste avec lien hypertexte de tous les onglets présents dans le fichier

Voici où j'en suis :

Sub contenu()

For Each sh In Sheets

i = i + 1

Cells(i, 1) = sh.Name

Next sh

End Sub

Merci pour 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

Pourquoi une macro pour créer l' onglet "contenu" ? Tu iras aussi vite de le faire par INSERTION Feuille.

Amicalement

Nad

Ca pourrait être tout autre nom que "contenu".

L'idée étant d'automatiser le plus de tâches possibles.

Merci