Bonsoir Petchy,
Si dans ton classeur tu as un UserForm dont le nom est "UserForm1", et que dans cet UserForm tu as une ListBox dont le nom est "TextBox1", il suffit par exemple de programmer l'évènement SheetActivate de l'objet WorkBook de la façon suivante pour obtenir le résultat escompté.
=====================================================
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
UserForm1.ListBox1.Clear
For Each Sht In Sheets
UserForm1.ListBox1.AddItem Sht.Name
Next Sht
End Sub
=====================================================
Cordialement.
Omicron.