Private Sub CommandButton1_Click()
Dim Nom As String, Wsh As Worksheet, Shp As Shape
Nom = TextBox2 ' OBJET RECHERCHE
On Error Resume Next
For Each Wsh In ThisWorkbook.Worksheets
Err.Clear: Set Shp = Wsh.Shapes(Nom): If Err = 0 Then Exit For
Next Wsh
If Shp Is Nothing Then MsgBox "OBJET NON TROUVE": Exit Sub
Wsh.Activate
End Sub