Bonjour,
j'ai gardé la logique du code initial qui est de ne pas mettre de lien sur la feuille "Accueil".
voici une adaptation pour s'affranchir de cette logique
Sub inser_liens_hypertext()
Dim sh As Worksheet
For Each sh In Worksheets
On Error Resume Next
sh.Hyperlinks.Delete
On Error GoTo 0
sh.Range("A1").Hyperlinks.Add Anchor:=sh.Range("A1"), Address:="", SubAddress:= _
"Accueil!A1", TextToDisplay:="Retour page d'Accueil"
sh.Range("A1").Font.Size = 16 'Police de la ligne 9 est en 16
If sh.Index > 1 Then
sh.Range("B1").Hyperlinks.Add Anchor:=sh.Range("B1"), Address:="", SubAddress:= _
Sheets(sh.Index - 1).Name & "!A1", TextToDisplay:="page précédente"
sh.Range("B1").Font.Size = 16 'Police de la ligne 9 est en 16
End If
If sh.Index < Worksheets.Count Then
sh.Range("C1").Hyperlinks.Add Anchor:=sh.Range("C1"), Address:="", SubAddress:= _
Sheets(sh.Index + 1).Name & "!A1", TextToDisplay:="page suivante"
sh.Range("C1").Font.Size = 16 'Police de la ligne 9 est en 16
End If
Next sh
Sheets("Accueil").Activate
End Sub