Private Function FichiersContenantTexte(ByVal Repertoire As String, ByVal TexteATrouver As String) As List(Of String)
Dim resultat As New List(Of String)()
For Each fichier As String In Directory.GetFiles(Repertoire,"*.txt",SearchOption.TopDirectoryOnly)
If File.ReadAllText(fichier).Contains(TexteATrouver) Then
resultat.Add(fichier)
End If
Next fichier
Return resultat
End Function
