XL 2016 Vider combobox après sélection

Private Sub ChoixOnglet_Change()
If ChoixOnglet.ListIndex = -1 Then Exit Sub
Dim m$
m = ChoixOnglet
ChoixOnglet = ""
Sheets(m).Select
End Sub

Dim CB() As New Classe1

Private Sub Workbook_Open()
Dim i%, temp()
For i = 1 To Sheets.Count
    ReDim Preserve temp(1 To i)
    temp(i) = Sheets(i).Name
Next
For i = 1 To Sheets.Count
    Sheets(i).ChoixOnglet.List = temp
    ReDim Preserve CB(i)
    Set CB(i).CB = Sheets(i).ChoixOnglet
Next
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.[A1].Select
End Sub

Public WithEvents CB As MSForms.ComboBox

Private Sub CB_Change()
If CB.ListIndex = -1 Then Exit Sub
Dim m$
m = CB
CB = ""
Sheets(m).Select
End Sub

Dim CB() As New Classe1

Private Sub Workbook_Open()
Dim i%
For i = 1 To Sheets.Count
    ReDim Preserve CB(i)
    Set CB(i).CB = Sheets(i).ChoixOnglet
Next
Workbook_SheetActivate ActiveSheet 'lance la macro
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim temp(), i%
Sh.[A1].Select
ReDim temp(1 To Sheets.Count)
For i = 1 To UBound(temp)
    temp(i) = Sheets(i).Name
Next
ActiveSheet.ChoixOnglet.List = temp 'MAJ de la liste
ActiveSheet.ChoixOnglet = Sh.Name
End Sub

Public WithEvents CB As MSForms.ComboBox

Private Sub CB_Change()
Dim m$
m = CB
If CB.ListIndex > -1 Then Sheets(m).Select
End Sub

Option Explicit
Public WithEvents ComB As MSForms.ComboBox
Private Sub Workbook_Open()
    Dim i%, Liste
    Liste = listeSheet
    For i = 1 To Sheets.Count
        Sheets(i).ChoixOnglet.List = Liste
    Next
    Workbook_SheetActivate ActiveSheet    'lance la macro
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Sh.[A1].Select
     ActiveSheet.ChoixOnglet = Sh.Name
Set ComB = ActiveSheet.ChoixOnglet
End Sub
Public Sub comb_Change()
      Sheets(ComB.Value).Activate
End Sub

Public Function listeSheet()
    Dim i&
    ReDim tbl(1 To Sheets.Count)
    For i = 1 To Sheets.Count
        tbl(i) = Sheets(i).Name
    Next
    listeSheet = tbl
End Function