[CBernardT]

Bonjour Bmellab et CélineG,

Une macro qui doit réaliser ce que tu veux ?

Il est supposé que les fichiers à passer en revue sont dans le même répertoire.

Sub ListeFichiersTxt()
Dim Dossier As Object, Fichier As Object, Ws As Object
Dim StrSearchString As String, Chemin As String
Dim I As Byte, CountTot As Byte
Dim FoundCell As Variant

StrSearchString = InputBox(Prompt:='Saisir la valeur à chercher.', Title:='Recherche')
If StrSearchString = '' Then Exit Sub
Chemin = ThisWorkbook.Path
Set Dossier = CreateObject('Scripting.FileSystemObject').GetFold er(Chemin)
For Each Fichier In Dossier.Files
If Right(Fichier.Name, 3) = 'xls' Then
If Fichier.Name <> ThisWorkbook.Name Then
Workbooks.Open Filename:=Fichier
For Each Ws In Worksheets
CountTot = CountTot + Application.CountIf(Ws.UsedRange, '=' & StrSearchString)
Next Ws
If CountTot <> 0 Then
For Each Ws In Worksheets
With Ws
.Activate
Set FoundCell = .Cells.Find(What:=StrSearchString, LookIn:=xlValues, LookAt:=xlPart)
If Not FoundCell Is Nothing Then
FoundCell.Activate
Exit Sub
End If
End With
Next Ws
Else
ActiveWorkbook.Close
End If
End If
End If
Next Fichier
End Sub

Cordialement

Bernard