VBA recherche d'une chaîne de caractère

Bonjour,


J'ai ne boucle qui recherche dans une colonne (d'une première feuille) une chaîne de cractère (par exemple: "Lot3" (ou Lot2)) et qui copie les informations associées (qui sont sur la même ligne) vers une autre feuille, worksheets 3.
Pour le moment, la copie se fait àla première ligne vide. J'essaye que la copie se fasse quand le code trouve la même chaîne de caractère dans la colonne 1 de la feuille 3.

Pour résumé: le code cherche "lot3" dans le Worksheets Bdd, sil il trouve il copie des infos qui se situe sur la même ligne vers la feuille 3 sur la ligne en dessou du mot Lot3"
Le truc, c'est qu'il peut il y avoir plusieurs ligne "Lot3" dans la feuille bdd, (ou pas du tout)
Je vous laisse mon code, juste en dessous.

Si quelqu'un pouvait me dépanner, ca serait coll, parce quelà je coince.

Dim Ligne2, i2 As Integer
Ligne2 = 1
i2 = 1
While Worksheets("Bdd").Cells(Ligne2, 4).Value <> ""
If Worksheets("Bdd").Cells(Ligne2, 4) = "Lot2" Then

While Worksheets(3).Cells(i2, 1).Value <> ""
i2 = i2 + 1
'MsgBox ("BoucleWhile" & i)
Wend
Worksheets(3).Cells(i2, 1) = Worksheets(1).Cells(Ligne2, 5)
Worksheets(3).Cells(i2, 2) = Worksheets(1).Cells(Ligne2, 6)
i2 = i2 + 1
Cells(i2, 1).Select
Selection.EntireRow.Insert

'MsgBox ("BoucleIFLot1" & i)
End If

Ligne2 = Ligne2 + 1
Wend
MsgBox ("Fin LOt2")
Selection.EntireRow.Delete