Bonsoir à tous
Bonsoir arthour973

Si j'ai bien compris ta demande, adapte le code ci-dessous :

Sub recherche()
Dim c As Range
Dim sh As Worksheet
Dim Var As Long

Var = 111111111
For Each sh In Workbooks("recherche_dans_feuilles.xls").Sheets
    ' mettre les colonnes possibles à la place de : b et e
    With sh.Range("b:e")
        Set c = .Find(Var, , LookIn:=xlValues, Lookat:=xlWhole)
        If Not c Is Nothing Then
            sh.Activate
            sh.Range(c.Address).Select
            'si une seule réponse possible
            'Exit Sub
        End If
    End With
Next sh
End Sub

Cordialement
Eric