Rechercher données dans plusieurs feuilles Ex

Bonjour,
j’ai une feuille Excel avec des onglets et j’aimerai que lorsque j’écris une valeur dans une cellule cible (nommée "code") alors ce code est cherché dans les feuilles des onglets (colonne A) et les infos sont inscrites dans la feuille « accueil ». Mais ça ne marche pas et je suis perdu. Ça bloque au niveau du while, on me dit « erreur de syntaxe ».
Please help me…



Public Function recherche()
Dim code, ligne
Dim v1, trouve
ligne = 4
trouve = 0

Dim onglets(6) As String
onglets(1) = "Douille cylindrique"
onglets(2) = "Douille à collerette centrale"
onglets(3) = "Douille à collerette décalée"
onglets(4) = "Arburg"
onglets(5) = "Charmilles"
onglets(6) = "Sagem"

j = 5

For i = 1 To 6
trouve = 0
While ((Worksheets(onglets(i)).Cells(ligne, 1)<> "" And (trouve = 0))
v1 = Worksheets(onglets(i)).Cells(ligne, 1)
v1 = LCase(v1)
code = Worksheets("Accueil").Range("code").Value
code = LCase(code)
If v1 = code Then
Worksheets("Accueil").Cells(j, 49) = Worksheets(onglets(i)).Cells(ligne, 3)
Worksheets("Accueil").Cells(j, 50) = Worksheets(onglets(i)).Cells(ligne, 4)
Worksheets("Accueil").Cells(j, 51) = Worksheets(onglets(i)).Cells(ligne, 5)
Worksheets("Accueil").Cells(j, 52) = Worksheets(onglets(i)).Cells(ligne, 6)
Worksheets("Accueil").Cells(j, 53) = Worksheets(onglets(i)).Cells(ligne, 7)
Worksheets("Accueil").Cells(j, 54) = Worksheets(onglets(i)).Cells(ligne, 8)
trouve = 1
End If
ligne = ligne + 1
Wend
ligne = 3
j = j + 1
Next i

End Function