Bonjour Antoine, bonjour le forum,
Essaie comme ça :
On Error Resume Next
Sheets(TextBox1.Value).Select
If Err <> 0 Then
Err.Clear
MsgBox "L'onglet n'existe pas !"
Exit Sub
End IF
On Error Goto 0
J'ai mis une condition pour éviter un bug si le texte contenu dans la TextBox1 ne correspond au nom d'un onglet du classeur...