' ************** COMBO ********************************
'Callback for Combo2 getItemCount
Sub NbItemchoixonglet(control As IRibbonControl, ByRef returnedVal)
returnedVal = Worksheets.Count
End Sub
'Callback for Combo2 getItemLabel
Sub ChoixongletLabel(control As IRibbonControl, index As Integer, ByRef returnedVal)
returnedVal = Sheets(index + 1).Name
End Sub
Sub Changechoixonglets(control As IRibbonControl, text As String)
Sheets(text).Visible = True
Sheets(text).Select
End Sub