Bonsoir,
Dès un double clic dans une cellule, une fenetre apparait avec la liste des onglets.
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
Application.CommandBars('Workbook tabs').ShowPopup
End Sub