Bonsoir Roger06, Philippe,
Je pense que la façon la plus simple serait de partir d'une TextBox (insérée directement dans la feuille ou dans un UserForm) et de contrôler l'événement KeyUp() de cette dernière :
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim F As Worksheet
If KeyCode = 13 Then
On Error Resume Next
Set F = ThisWorkbook.Sheets(Val(TextBox1.Text))
On Error GoTo 0
If Not F Is Nothing Then
F.Activate
Else
MsgBox "Feuille inexistante !"
End If
End If
End Sub
Cordialement.
Didier_mDF