|    Page 4 of 10    |

' ***********************************************

' Ajout de la liste des onglets du classeur pour

' remplir une ComboBox ou Listbox.

' ***********************************************

Public Sub UserForm_Initialize()

     For Each c In ActiveWorkbook.Sheets

          ComboBox1.AddItem c.Name

     Next

End Sub




|    Page 4 of 10    |