VBA erreur de compilation

bonjour à tous

J ai une erreur dans mes codes .

je aimerais ajouter des articles à ma commande , quand j ajoute un deuxième articles celui si écrase le premier

Merci pour votre aide

Voici les codes que j ai mis

Private Sub CommandButton1_Click()
Dim memoire As Integer
Dim part_name As String
Dim part_prix As Currency

If Me.Cbx_article >= 0 And Me.Txt_nombre <> "" Then

If Me.List_order.ListCount >= 20 Then 'si il y a plus de 20 articles
MsgBox "trop d'article pour cette commande il faut creer une nouvelle commande"
Else

On Error GoTo erreur

part_name = WorksheetFunction.VLookup(Me.Cbx_article, Sheets(2).Range("b:i"), 2, 0)
part_prix = WorksheetFunction.VLookup(Me.Cbx_article, Sheets(2).Range("b:i"), 4, 0)

With Me.List_order
.AddItem
.List(memoire, 0) = Me.Cbx_article
.List(memoire, 1) = part_name
.List(memoire, 2) = CCur(part_prix)
.List(memoire, 3) = Me.Txt_nombre

End With

Me.Cbx_article = ""
Me.Txt_nombre = ""

memoire = memoire + 1
ThisWorkbook.Save
End If

Else
MsgBox "il manque des informations#"

End If

Exit Sub

erreur:

MsgBox " le nom d'article ou le prix ne sont pas trouvés"


End Sub

Bonjour

Sans données confidentielles

Cordialement

Edit : sinon, un truc à essayez, déplacez cette instruction et mettez là tout en haut de vos codes de l'userform

Dim memoire As Integer

merci

Ca marche

Ok.

Cordialement