Bonjour,
Un exemple en l'absence de fichier représentatif, à adapter donc :
Sub ACCUEIL()
Dim F%
For F = 2 To Worksheets.Count
Worksheets(F).[A1] = "ACCEUIL"
Worksheets(F).[A1].Hyperlinks.Add Worksheets(F).[A1], "", "ACCEUIL!A1", "ACCEUIL"
Next F
End Sub
Dans chaque feuille hormis la première, un hyperlien vers la page d’accueil est créé en A1.
Cdlt,