Lien vers onglets du classeur

Sub raz()
Dim i&
For i = 1 To 26
 Cells(9, "B").Offset(, i) = Chr(64 + i)
With ActiveSheet
.Hyperlinks.Add Anchor:=.Cells(9, "B").Offset(, i), Address:="", SubAddress:="Accueil!" & .Cells(9, "B").Offset(, i).Address(0, 0), TextToDisplay:=Chr(64 + i)
End With
Next i
End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Const ABC As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Dim oSh As Worksheet
Application.ScreenUpdating = False
If Not Intersect(ActiveCell, ActiveSheet.Range("AE11:AE108")) Is Nothing Then
Sheets(ActiveCell.Value2).Visible = True
For Each oSh In ThisWorkbook.Sheets
      If oSh.Name <> "Accueil" And oSh.Name <> "Fr_Régions" And oSh.Name <> ActiveCell.Value2 Then
      oSh.Visible = 0
      End If
   Next oSh
End If
If Not Intersect(ActiveCell, ActiveSheet.Range("C9:AA9")) Is Nothing Then
For Each oSh In ThisWorkbook.Sheets
      If oSh.Name = "Accueil" Or oSh.Name = "Fr_Régions" Or Left(oSh.Name, 1) Like ActiveCell.Text & "*" Then
      oSh.Visible = xlSheetVisible
      Else
      oSh.Visible = xlSheetHidden
      End If
   Next oSh
Application.ScreenUpdating = True
End If
End Sub