merci IFIX, mais en me grattant la tête hier soir et en passant par une listbox, j'ai fini par sortir ce que je voulais : pour info:
pour afficher la liste de mes feuilles dans la listbox :
Private Sub UserForm_Activate()
ListBox1.Clear
a = ListBox1.Value
For Each sh In ThisWorkbook.Sheets
UserForm2.ListBox1.AddItem sh.Name
Next sh
End Sub
Pour sélectionner ma feuille à partir de ma listbox:
Private Sub ListBox1_Click()
a = ListBox1.Value
ThisWorkbook.Sheets(a).Select
End Sub