Sub lire_trace()
NbInd = ThisWorkbook.Worksheets("Data").Cells(27, 3)
For i = 1 To NbInd
Set PlageDeRecherche = FileItem
Valeur_Cherchee = ThisWorkbook.Worksheets("Data").Cells(i + 5, 2)
Set Trouve = FileItem.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
If Trouve Is Nothing Then
'ici, traitement pour le cas où la valeur n'est pas trouvée
AdresseTrouvee = " L'opération " & Valeur_Cherchee & " n'a pas été effectuée"
Else
 For j = LBound(Lignes) To UBound(Lignes)   'restitution des lignes correspondantes
    Debug.Print Lignes(j)

'ici, traitement pour le cas où la valeur est trouvée
nom = oFSO.GetFileName(strChemin)
nom = Format(Date, "dd-mmmm-yyyy")
MsgBox nom
Next j
End If
Next i
End Sub