Sinon, tu as cette solution. Tu supprime tous les liens en place en A:A et tu lances la macro qui va créée les liens.
Option Explicit
Sub CreerLiensFeuilles()
Dim I As Byte, J As Byte 'de MichelXLD
Dim Val As String
For I = 1 To Sheets.Count
If Not Sheets(I).Name = "Accueil" Then
Val = "'" & Sheets(I).Name & "'!A1"
J = J + 1
Worksheets(I).Hyperlinks.Add Anchor:=Sheets("Accueil").Cells(J, 1), Address:="", SubAddress:=Val
End If
Next I
End Sub