m = 1
chemin = ThisWorkbook.path & "\" & "Offers\"
Fichier = Dir(chemin & "*.PDF")
Do While Fichier <> ""
If InStr(Fichier, TextBox1.Value) <> 0 Then
Offre = ThisWorkbook.path & "\" & "Offers\" & Fichier
ListView2.ListItems.Add , , Fichier
ListView2.ListItems(m).SubItems(1) = Offre
End If
Fichier = Dir
m = m + 1
Loop