variab = InputBox("Que cherches-tu?")
Dim i As Integer
For i = 1 To 3 'remplace le 3 par le nombre d'onglets que tu as
On Error Resume Next
Sheets(i).Select 'remplace sheets par le nom de tes onglets
x = [A1:Z6000].Find(What:=variab, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns).Activate
If x = True Then Exit Sub
Next i
If x Is Nothing Then MsgBox ("Désolé j'ai rien trouvé")