Option Explicit
Sub TrouveOnglet()
Dim sh
Dim Onglet as String
Dim trouvé As Boolean: trouvé = False
Onglet = InputBox("Onglet à chercher ?")
If Onglet = "" Then Exit Sub
For Each sh In Worksheets
If UCase(sh.Name) = UCase(Onglet) Then
sh.Select: Exit Sub
End If
Next
If Not trouvé Then MsgBox ("Inconnu")
End Sub