Insérer lien hypertexte vers autres feuilles

Bonjour à tous,

Je souhaite insérer un lien hypertexte pour rediriger vers une autre feuille de mon classeur Excel.

Alors voilà, j'ai une macro qui marche très bien mais j'aimerai la faire fonctionner encore mieux.

Sub ListSheets()

Dim ws As Worksheet
Dim x As Integer

x = 1

For Each ws In Worksheets

   Sheets("Feuil1").Cells(x + 1, 5).Select
   ActiveSheet.Hyperlinks.Add _
   Anchor:=Selection, Address:="", SubAddress:= _
   ws.Name & "!A1", TextToDisplay:=ws.Name
   x = x + 1

Next ws

End Sub

J'aimerai que celle-ci me créée des liens hypertextes uniquement à partir de la feuil numéro 5 et pas avant.

Je sais qu'il ne faut pas que j'utilise la bouche "For Each ..." mais plutôt un "For X to ..."

Est-ce que quelqu'un peut m'aiguiller dans ma démarche ?

Merci beaucoup !

Noé

Bonjour,

La forme générale de ton code est :

Sub Macro1()
    Dim x As Integer

    For x = 5 To Worksheets.Count
        MsgBox Sheets(x).Name
    Next x
End Sub

Merciiii mille fois pour ta réponse aussi excellente que rapide ! 👍

Ce n'était pas bien sorcier. Bon vent.