Bonjour,
A l'ouverture du fichier tu executes la macro "Liens" où cette ligne
Sheets(1).Hyperlinks.Add Anchor:=Range("B" & Ligne), Address:="", SubAddress:="'" & Sheets(I).Name & "'!A1", TextToDisplay:=Sheets(I).Name
crée un lien en colonne B mais de la feuille active et pas de la feuille "accueil". Précise avant le range sur quelle feuille tu veux le lien :
Sheets(1).Hyperlinks.Add Anchor:=Sheets(1).Range("B" & Ligne), Address:="", SubAddress:="'" & Sheets(I).Name & "'!A1", TextToDisplay:=Sheets(I).Name
Cela devrait résoudre le pb
Bonne journée