Recuperer contenu d'une ligne dans un tableau

Bonjour tout le monde,

Débutant comme un bon nombre de personnes qui posent des questions simples ^^ j'ai un petit souci pour faire un petit truc via une macro vba :(

J'ai une feuile excel dans lequel il y a un tableau, je souhaite recherché dans la colonne A, la ligne dans laquelle apparait le nom de mon produit.
Lorsque je le trouve, je cherche a copier cette ligne entière dans une autre feuille qui porte le meme nom que mon produit.

Voici ci dessous mon code qui ne fonctionne pas, qqn aurait une idée de mon erreur svp?

Merci beaucoup.

' Variable permettant de se deplacer ligne par ligne
Dim lign As Integer
lign = 1

Public Produits(3) As String
Produits(0) = "pdtalpha"
Produits(1) = "pdtbeta"
Produits(2) = "pdtgamma"

' Report des données du tableau detaille dans les feuilles personnelles
While lign <= 50
Sheets("MaFeuille").Select
If IsInGroupListing(Application.Cells(lign, 1)) = True Then
For i = 0 To 3 'UBound(Produits())
If Application.Cells(lign, 1) = Produits(i) Then
Rows(lign & ":" & lign + 1).Select
Selection.Copy
Sheets(Produits(i - 1)).Select
Range("A8").Select
ActiveSheet.Paste
lign = lign + 1
End If
Next
End If
lign = lign + 1
Wend