Sub test()
Dim Onglet As Worksheet
Dim Compte As Long
Dim Noms(15) As String
Dim Message As String, Choix As String
Compte = 0
For Each Onglet In ThisWorkbook.Worksheets
Compte = Compte + 1
Noms(Compte) = Onglet.Name
Message = Message & Compte & "-" & Onglet.Name & vbCrLf
Next
Choix = InputBox(Message, "Choisir le numéro d'onglet désiré")
If Choix <> "" And CLng(Choix) <= Compte Then
MsgBox "l'onglet choisit est : " & Noms(Choix)
Else
MsgBox "Choix invalide ou non exprimé"
End If
End Sub