Comment créer un sommaire avec des liens hypertextes vers les différentes feuilles ?

sub ListFeuil()  'ChrisV, mpfe  
Application.ScreenUpdating = False 
 Set nSht = Sheets.Add(Before:=Sheets(1))   
On Error GoTo GesErr  DebProc:   nSht.Name = "Sommaire"   
[A1] = "Liste des onglets du classeur"     
With Selection.Font       
.Bold = True      
 .Size = 12    
 End With  

 For i = 2 To Sheets.Count     
nSht.Cells(i, 1).Value = Sheets(i).Name    
 With Worksheets(nSht.Name)       
ActiveSheet.Hyperlinks.Add Anchor:=.Cells(i, 2), _        
 Address:="", 
subAddress:=Sheets(i).Name & "!A1", _
          TextToDisplay:="Lien vers " & Sheets(i).Name
    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("Sommaire").Delete
  Application.DisplayAlerts = True
  GoTo DebProc
 end sub