Mise à jour lien automatique

Bonjour,

J'ai dans un classeur pas mal de lien (jusque la tout va bien) , je voudrais créer une liste dans un onglet où il y aurai tout les liens vers les différents onglets mon classeur ( jusque la ca va encore). Le problème est que je veux le faire sur 3 colonnes (c'est la que les choses se corsent )

j'ai mon code qui est ici :

Private Sub CommandButton1_Click()

'Lien vers les différents onglets du classeur

Dim i As Integer
Dim Menu(2 To 50, 1 To 1) As Variant
Dim FeuilleActive As String

CommandButton1.BackColor = RGB(100, 149, 237)
CommandButton1.WordWrap = True


FeuilleActive = ActiveSheet.Name

    For i = 3 To 17
    
        If Sheets(i).Name <> "Menu" Then
        
            Cells(i + 3, 1).Select
            
            ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name
            
    
        End If
    
    Next
    
For Each Sh In Array("T1-A", "T1-A-TB1", "T1-A-TB2", "T1-A-TB1&2", "T1-R", "T1-R-TB1", "T1-R-TB2", "T1-R-TB1&2", "T2-A", "T2-A-TB1", "T2-A-TB2", "T2-A-TB1&2", "T2-R", "T2-R-TB1", "T2-R-TB2", "T2-R-TB1&2")

 For i = 18 To ThisWorkbook.Sheets.Count
    
        If Sheets(i).Name <> "Menu" And Sheets(i).Name = Sh Then
        
            Cells(i + 3 - 15, 3).Select
            
            ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name

    
        End If
    
    Next
    
Next Sh


 For i = 18 To ThisWorkbook.Sheets.Count
    
    For Each Sh In Array("T1-A", "T1-A-TB1", "T1-A-TB2", "T1-A-TB1&2", "T1-R", "T1-R-TB1", "T1-R-TB2", "T1-R-TB1&2", "T2-A", "T2-A-TB1", "T2-A-TB2", "T2-A-TB1&2", "T2-R", "T2-R-TB1", "T2-R-TB2", "T2-R-TB1&2")
    
        If Sheets(i).Name <> Sh Then
        
            Cells(i + 3 - 15, 5).Select
            
            ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name
        
        End If
    
    Next Sh
    
Next

    
 Sheets("Menu").Cells(1, 1) = "Liste des différents onglets du classeur"

End sub

J'ai une première partie dans ma colonne A, ca c'est bien, une seconde partie dans ma colonne C et dans ma colonne E j'aimerai avoir le reste.

Cependant quand je fais le code qui est la cela me remets les onglets qui sont déjà affiché dans ma colonne C et j'aimerai qu'il n'apparaisse pas ... je ne sais pas comment faire ...

En photo :
Ce que j'ai :


ce que j'aimerai



Merci de votre aide :)

Feudora