ListBox avec noms des onglets se terminant par

Bonjour le forum,
à cet instant, je n'apporte pas mon aide mais je viens solliciter la votre !
J'ai créé un fichier avec un ajout d'onglet via UsF

Ces onglets ont un numéro d'ID toujours différents et ces onglets se finissent toujours par -ST1 ou -ST2.

Un exemple : 1234-ST1 ou 2478-ST2

J'ai trouvé un bout de code qui permet d'afficher (ou non) la liste des onglets/ListBox suivant la recherche d'un mot-clé.

Cependant, il m'est impossible de définir le contenu de ces ListBox avec seulement une partie de texte des onglets.

Voici le code que j'utilise :

Private Sub Listbox_ICP_enter()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
If sh.Name <> "*ST1" Then
Me.ListBox_ICP.AddItem sh.Name
End If
Next sh
End Sub

J'ai mis un * devant ST1, m'imaginant que cela fonctionnerait, mais non !

J'ai fait des recherches mais infructueuses