Entrée de stock à partir d'une référence d'article

Bonjour,

Je cherche à faire des entrées de stock sur une base de données d'article qui possèdent tous une référence unique.

A partir de cette référence unique je souhaite ajouter le stock rentré dans la cellule N7 du worksheet("Entrées_Stocks) dans la cellule de la colonne 8 en association avec la ligne de mon article sur le worksheet("MP"). Et dans le même temps je veux veux coller des infos dans les cellule de la colonne 4 jusqu'à la colonne 7 en association avec la ligne de mon article sur le worksheet("MP"). Voici la macro que j'ai rédigée, mais elle fait littéralement planter Excel. Est-ce que vous seriez inspirés pour voir où j'ai fait une boulette? :S

'
Sub Entree_Stocks()
'
' Entree_Stocks Macro

'Variables

Dim ligne As Integer: ligne = 2
Dim valeur_stock As Integer: valeur_stock = 0
Dim valeur_demandee As Integer: valeur_demandee = 0
Dim ref_cat As String: Dim ref_of As String
Dim choix_utilisateur As Byte

'Définition des variables

While (Worksheets("MP").Cells(ligne, 8).Value <> "")
    valeur_stock = Worksheets("MP").Cells(ligne, 8).Value
    ref_cat = Worksheets("MP").Cells(ligne, 1).Value

        If (Worksheets("Entrees_Stocks").Range("B2").Value = ref_cat) Then
            valeur_demandee = Worksheets("Entrees_Stocks").Range("N7")
        End If

    choix_utilisateur = MsgBox("Voulez-vous ajouter le stock", vbYesNo)

    If (choix_utilisateur = 6) Then

        ligne = 2
        While (Worksheets("MP").Cells(ligne, 8).Value <> "")
            If (Worksheets("Entrees_Stocks").Range("B2").Value = Worksheets("MP").Cells(ligne, 1).Value) Then

            Worksheets("MP").Cells(ligne, 8).Value = Worksheets("MP").Cells(ligne, 8).Value +                 Worksheets("Entrees_Stocks").Range("N7").Value

            Worksheets("Entrees_Stocks").Range("J7:M7").Copy
           Worksheets("MP").Cells(ligne, 4).PasteSpecial Paste:=xlValues, operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

            End If
        Wend
    End If
Wend

End Sub

Par avance merci beaucoup!

Flo