Option Explicit
Sub Bouton2_QuandClic()
'
Dim i%
Dim Contenu$
'
ActiveSheet.Shapes('Zone de texte 1').Select
Contenu = Selection.Text
Range('A1').Select
i = 0
Do
i = i + 1
Loop Until (WorksheetFunction.CountIf(Sheets(i).Range('A:IV'), Contenu) > 0) Or (i = Sheets.Count)
Sheets(i).Select
Range('A1').Select
End Sub