Bonjour,
Une piste !
Créer une feuille de recherche et coller le code ci-dessous dans son module :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Fe As Worksheet
If Target.Address(0, 0) <> "A1" Then Exit Sub
If Target.Value = "" Then Exit Sub
For Each Fe In Worksheets
If Fe.Name <> ActiveSheet.Name Then
If Fe.Range("B2").Value = Target.Value Then Fe.Activate: Exit Sub
End If
Next Fe
End Sub
En entrant le code recherché dans la cellule A1 de cette feuille, une recherche est faite sur toutes les cellules B2 de toutes le feuilles du classeur (sauf celle servant à la recherche) et sitôt trouvé, active la feuille et met fin à la recherche