Ma recherche ne trouve qu' une ligne

Bonjour,

Avec le code suivant , je voudrais aller chercher dans la base du classeur TOTO qui se trouve sur le disque S: le mot saisi dans une TextBox du classeur LOLO et copier sur la Feuil8 de ce classeur TOUTES les lignes contenant ce mot. Donc j' ai mis :

Private Sub CommandButton1_Click()
Dim Valeur As String
Dim Lig As Long
Dim Report As Range
Dim Wb As Workbook
Application.ScreenUpdating = False
Valeur = TextBox1.Value
If Valeur = '' Then Exit Sub
Set Wb = Workbooks.Open('S:\\TOTO\\base.xls')
On Error Resume Next
Lig = Cells.Find(Valeur, Range('A65536').End(xlUp), , xlByRows).Row
If Err > 0 Then
MsgBox 'La valeur cherchée, ' & Valeur & ', n'existe pas '
Wb.Close SaveChanges:=False
Unload UserForm8
Exit Sub
End If
Rows(Lig).Interior.ColorIndex = xlNone
Set Report = Rows(Lig)
Windows('LOLO.xls').Activate
Sheets('Feuil8').Select
Lig = Range('A2').Row
Rows(Lig) = Report.Value
Wb.Close SaveChanges:=False

End Sub

Ca fonctionne mais le problème est que ça ne me recopie que la 1ere ligne trouvée contenant le mot alors que je voudrais toutes les lignes contenant ce mot.

Auriez-vous une idée ?

Merci.