so, MichelXLD, le forum
tu crées un bouton et tu y colles ce code :
For n = premfeuille To Worksheets.Count
feuilles.liste.AddItem Sheets(n).Name
Next
Call trie(feuilles.liste)
feuilles.Show
End Sub
tu crées un user form avec ce code (en le nommant 'feuilles'):
Private Sub Liste_Click()
ActiveWorkbook.Worksheets(liste.Value).Activate
End Sub
logiquement cela devrait fonctionner, bonne journée.
A+