Bonjour,
si j'ai bien compris...
de mémoire, un code un peu téléphoné et non testé.
Sub Test
Var = InputBox("Mot à rechercher ?", , "" )
For i = 1 to worksheets.count
worksheets(i).activate
if Range("A1" ).value = Var Then Exit for
Next
Range("A1" ).Select
End Sub
C'est ça ?
A+