Salut Sony,
Si comme moi tu es fan des boucles For Each, ton code pourrait ressembler à ceci :
Private Sub CommandButton1_Click()
Dim WS As Worksheet
Dim F As String, OK As Boolean
'Demander le nom de feuille à activer :
F = InputBox("Feuille à chercher")
If F <> "" Then
'Parcourir toutes les feuilles du classeur :
For Each WS In Worksheets
'Tester le nom de chaque feuille (ici en lettres minuscules)
If LCase(WS.Name) = LCase(F) Then
OK = True
WS.Activate
Exit For
End If
Next
If OK = False Then
MsgBox "Désolé, pas de feuille " & F
End If
End If
End Sub
A+
LN