Copie de ligne entière suivant référence

Bonjour a tous.

Je suis novice sur excel et je suis entrain de préparer un fichier d'import de produit commercial pour un site web. Voila le projet consiste à créer un tableau excel sur excel mac 2011 pour des pièces détachées de produit d'airsoft. Les clients auront une base de données classé en fonction des modèle de produite et par conséquence un même produit peut se retrouver dans une centaine de catégorie différente..

Mon souci c'est que je voudrais que lorsque je rentre mes produits dans le tableau , qu'il soit détecté par la référence produit que l'article en question est déjà existant et par conséquence que les caractéristique de ma ligne soient entièrement recopier à l'exception de ma catégorie que je définirais manuellement.

Je joins le fichier de mon tableau pour plus clarté.

Merci par avance de votre aide.

Cordialement.

A mettre dans le module de la feuil 1

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Columns(1)) Is Nothing Then
        If Not Columns(1).Find(Target.Value) Is Nothing Then
            lig = Columns(1).Find(Target.Value).Row
            For i = 2 To 7
                Cells(Target.Row, i) = Cells(lig, i)
            Next i
        End If
    End If
End Sub

Un grand merci, ça fait deux jours que je cherchais comment faire.