XL 2021 demander à l'utilisateur de selectionner un onglet

'USF avec 2 boutons et 1 listbox
Private Sub cmdOK_Click()
If Me.lstOnglets.ListIndex = -1 Then
    MsgBox "Veuillez sélectionner un onglet.", vbExclamation
    Exit Sub
End If

NomOnglet = Me.lstOnglets.Value
Me.Hide
End Sub

Private Sub cmdAnnuler_Click()
NomOnglet = ""
Me.Hide
End Sub

Private Sub UserForm_Initialize()
Dim Ws As Worksheet

For Each Ws In ThisWorkbook.Worksheets
    Me.lstOnglets.AddItem Ws.Name
Next Ws
End Sub

Public NomOnglet As String

Sub TestSelectionOnglet()
Dim Ws As Worksheet

NomOnglet = ""
UserForm1.Show

If NomOnglet = "" Then
    MsgBox "Sélection annulée.", vbInformation
    Exit Sub
End If

Set Ws = Worksheets(NomOnglet)

MsgBox "Onglet sélectionné : " & Ws.Name
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   IndexSheet = ActiveSheet.Index
End Sub

Private Sub UserForm_Initialize()
   IndexSheet = 0
   Beep
   Label1 = "Veuillez sélectionner un autre onglet que " & vbLf & _
         """" & ActiveSheet.Name & """, SVP..."
   Application.OnTime Now() + 1# / 24 / 60 / 60, "Detecter"
End Sub

Private Sub UserForm_Terminate()
   MsgBox "Vous venez de sélélectionner l'onglet:" & vbLf & """" & Sheets(IndexSheet).Name & """", vbInformation
End Sub

Public IndexSheet As Long

Sub Detecter()
   Do: DoEvents: Loop Until IndexSheet <> 0
   Unload UserForm1
End Sub

Sub AfficherUserform1()
   UserForm1.Show vbModeless
End Sub

Sub TestSelSheet()
    Set FeuilleActive = ActiveSheet 'sauvegarde de la feuille active'
    Dim X As String
    Application.CommandBars("Workbook tabs").ShowPopup 400, 300
    X = ActiveSheet.Name
    FeuilleActive.Activate 'on revient sur la feuille initiale'
End Sub