Lister les feuilles du classeur , dans l'onglet "bilan" et ajouter des liens hypertextes
Sub creerLiensFeuilles()
Dim I As Byte, J As Byte
Dim Valeur As String
For I = 1 To Sheets.Count
If Not Sheets(I).Name = "Bilan" Then
Valeur = "'" & Sheets(I).Name & "'!A1"
J = J + 1
Worksheets(I).Hyperlinks.Add Anchor:=Sheets("Bilan").Cells(J, 1), Address:="", subAddress:=Valeur
End If
Next I
End Sub