bon j'ai continué de rechercher et j'ai trouvé
en mettant cette macro, çà fonctionne :
Sub liens()
Sheets("Sommaire").Activate
For i = 1 To Sheets.Count
Cells(i + 5, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="'" & Replace(Sheets(i).Name, "'", "''") & "'" & "!"
& "A1", TextToDisplay:=Sheets(i).Name
Next i
End Sub