Bonjour,
Par rapport à ton exemple je considère que la liste de base est placée en :
A1:A10
tu rentres "livre b" dans un TextBox " Textbox1"
et tu lances recherche .
les résultats s'inscrivent dans la colonne B (mais tu peux utiliser autrement le " c.value " ...)
----
Sub recherche()
Dim TaString As String
TaString = TextBox1.Value
I = 1
With Worksheets(1).Range("a1:a10")
Set c = .Find(TaString, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Cells(I, 2).Value = c.Value
I = I + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub
---
Ca répond à une moitié du problème
A+