Code pour éviter une longue série

Bonjour,

Eh oui, encore moi pour une autre question.

Voilà un bout de code que j'ai saisis dans une UserForm.
Lorsque je tape 1 dans la TextBox de l'UserForm, la feuille S1 est visible est activitée. Mon soucis est que j'ai 52 feuilles, je ne me vois pas taper 52 fois ces lignes, pouvez-vous me donner une méthode plus simple s'il vous plait ?
Je ne sais pas faire du tout, c'est la grande nage....
Merci par avance

Code:

---

1 2 3 4 5 6 7

Private Sub Cmb1_Click() If FrmSem.Txt1.Value = "1" Then Sheets("S1").Visible = True Sheets("S1").Activate End If Unload Me End Sub

---

Bonjour

Code:

---

1 2 3 4

Private Sub Cmb1_Click() Sheets("S" & FrmSem.Txt1.Value).Visible = True Sheets("S" & FrmSem.Txt1.Value).Activate ' normalement inutile End Sub

---

Bonjour wilfried,

Super ça marche. Cela m'enlève une grosse épine du pied.
A plus tard très certainement