Programmation lien hypertex sous excel

Bonjour,

J'ai sous excel un classeur avec plain d'onglets (11 pour le moment).
Pour faciliter la navigation j'ai récupéré un petit code bien sympa, c'est le suivant que j'ai adapté à ma sauce.
il tourne presque c'est à dire une feuille "PRESENTATION" se crée mais les liens sont bien "écris" mais restent inactifs. lorsque je lance la marcro excel le message "Référence Non valide" s'affiche.

mais avec une petite adaptation de la forme suivante pour chaque onglet tout marche :

Range("D3").Select
Selection.Hyperlinks(1).SubAddress = "'Global menu'!A1"
Range("D4").Select
Selection.Hyperlinks(1).SubAddress = "'Main Menu'!A1"
Range("D5").Select
Selection.Hyperlinks(1).SubAddress = "'Human User Indicator'!A1"

Et comme ça pour chaque onglet !!!

Donc je voudrais faire une formule qui regroupe les lignes précédentes en une seule au lieu.
Le texte de chauq onglet est stocké dans les cellules A2 à A(I) (I=au nombre d'onglet)
Une formule qui récupère le contenu d'une cellule et affecte un lien hyperlink lié au nom de cette cellule.

Je pense qu'un peu de code clarifiera tout ça...

DONC VOILA CE QUE J'AI
---------------------------------------------------------------------------------------------------------------------------------------
Sub ListeFeuilles()

Dim I As Integer

' Macro enregistrée le 02/06/2008

Application.ScreenUpdating = False
Set nSht = Sheets.Add(Before:=Sheets(1))
On Error GoTo GesErr

DebProc:
nSht.Name = "PRESENTATION"
[A1] = "List of workbook's tabs"
With Selection.Font
.Bold = True
.Size = 14
End With

For I = 3 To Sheets.Count
nSht.Cells(I, 1).Value = Sheets(I).Name
With Worksheets(nSht.Name)
ActiveSheet.Hyperlinks.Add Anchor:=.Cells(I, 4), _
Address:="", SubAddress:=Sheets(I).Name & "!A1", _
TextToDisplay:="Link to " & Sheets(I).Name

Range("A" & I).Select
' Selection.Hyperlinks(1).SubAddress = "Range("A" & I)" <========PLANTAGE ICI MA FORMULE EST H/S

End With

Next I

With Rows("1:1")
.RowHeight = 40
.VerticalAlignment = xlCenter

End With
[E2].Activate
ActiveWindow.DisplayGridlines = False

Exit Sub

GesErr:
Application.DisplayAlerts = False
Sheets("PRESENTATION").Delete
Application.DisplayAlerts = True
GoTo DebProc

End Sub

-------------------------------------------------------------------------------------------------------------------------------------
TOUT MARCHE AVEC CES MODIFS

Range("D3").Select
Selection.Hyperlinks(1).SubAddress = "'Global menu'!A1"
Range("D4").Select
Selection.Hyperlinks(1).SubAddress = "'Main Menu'!A1"
Range("D5").Select
Selection.Hyperlinks(1).SubAddress = "'Human User Indicator'!A1"

==========================================================

JE VEUX UNE FORMULE QUI M'EVITE DE TOUT RETAPER CHAQUE FOIS QU'UN ONGLET S'AJOUTE...

Moi je n'y arrive pas, je vois bine que la fonction Selection.Hyperlinks(1).SubAddress attend une chaine de carctères , mais je suis incapable de récupérer cette chaine qui se trouve dans les cellules A2 à A(I).

C'est tout ce qui me manque pour en finir avec mon programme.