Sub Recherche_agent()
Dim Agent As String
Agent = InputBox("nom de l'agent recherché :", "choix de l'onglet")
If Agent = "" Then Exit Sub
On Error Resume Next
Sheets(Agent).Activate
If ActiveSheet.Name <> Agent Then MsgBox "'" & Agent & "' pas trouvé..."
End Sub