Pratique VBA

Sub choix()
    Dim nf As String
    nf = InputBox("Quelle feuille voulez-vous afficher ?")
    If nf <> "" Then
        On Error Resume Next
        Sheets(nf).Activate
    End If
End Sub

Option Explicit

Private Sub Workbook_Deactivate()
    EffacerMenus
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

    EffacerMenus

    '   Création d'un menu contextuel
    '   ajouté en première position
    Set MenuPrincipal = Application.CommandBars("cell").Controls.Add(Type:=msoControlPopup, before:=1, temporary:=True)
    With MenuPrincipal
        .Caption = "Feuilles"
        .BeginGroup = True
    End With

    '   Création du premier sous-menu affecté à MenuPrincipal
    Set SousMenu1 = MenuPrincipal.Controls.Add(Type:=msoControlButton)
    With SousMenu1
       .Caption = "Feuil1"
       .OnAction = "ActF1"
       .FaceId = 2105
    End With

    Set SousMenu2 = MenuPrincipal.Controls.Add(Type:=msoControlButton)
    With SousMenu2
       .Caption = "Feuil2"
       .OnAction = "ActF2"
       .FaceId = 2105
    End With

    Set SousMenu3 = MenuPrincipal.Controls.Add(Type:=msoControlButton)
    With SousMenu3
       .Caption = "Feuil3"
       .OnAction = "ActF3"
       .FaceId = 2105
    End With

    Set SousMenu4 = MenuPrincipal.Controls.Add(Type:=msoControlButton)
    With SousMenu4
       .Caption = "Feuil4"
       .OnAction = "ActF4"
       .FaceId = 2105
    End With

    Set SousMenu5 = MenuPrincipal.Controls.Add(Type:=msoControlButton)
    With SousMenu5
       .Caption = "Feuil5"
       .OnAction = "ActF5"
       .FaceId = 2105
    End With
End Sub

Option Explicit

Sub ActF1()
    Feuil1.Activate
End Sub

Sub ActF2()
    Feuil2.Activate
End Sub

Sub ActF3()
    Feuil3.Activate
End Sub

Sub ActF4()
    Feuil4.Activate
End Sub

Sub ActF5()
    Feuil5.Activate
End Sub

Option Explicit

Public MenuPrincipal As CommandBarPopup
'   Sous-menus de MenuPrincipal
Public SousMenu1 As CommandBarControl
Public SousMenu2 As CommandBarControl
Public SousMenu3 As CommandBarControl
Public SousMenu4 As CommandBarControl
Public SousMenu5 As CommandBarControl

Sub EffacerMenus()
Dim Ctrl As CommandBarControl
    For Each Ctrl In Application.CommandBars("Cell").Controls
        If Ctrl.Caption = "Feuilles" Then Ctrl.Delete
    Next Ctrl
End Sub

Public nomf(100), i
Sub lance()
For i = 1 To Sheets.Count
nomf(i) = Sheets(i).Name
Next
End Sub
Sub Trouve()
lance
Dim NAT As String
NAT = InputBox("Première lettre du début du nom")
For n = 1 To i
'MsgBox nomf(n)
If Left(nomf(n), 1) = NAT Then Sheets(n).Select
Next
End Sub