Besoin daide

Bonjour,
jaimerai rassembler toutes les informations saisies et les afficher dans la case en jaune mais lorsque je clique sur "Add" ceci maffiche un message derreur en point sur les zones en gras soulignees et italique. SVP a laide jai deja fouiller fatigue. merci bien

<ital><bold>
Private Sub CommandButton1_click()</bold></ital><underline></underline>
Dim Part_name As String
Dim Part_prix As Currency

If Me.Cbx_article.ListIndex >= 0 And Me.Txt_nombre <> "" Then
    If Me.List_order.LineCount >= 20 Then  'Si il y a plus de 20 articles
        MsgBox "Trop d'article pour cette commande, il faut creer une autre commande"
        Else
    'Rehercher dans article
    
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)

        'Remplir la zone de ligne!
        
        
    With Me.List_order
    <underline> <ital><bold>  .AddItem</bold></ital></underline>
       .List(memoire, 0) = Me.Cbx_article
       .List(memoire, 1) = Part_name
       .List(memoire, 2) = CCur(Part_prix)
       .List(memoire, 3) = Txt_nombre
    End With
 
        memoire = memoire + 1
        'Vider l'article et le nombre!
        Me.Cbx_article = ""
        Me.Txt_nombre = ""
    
    End If
End If
End Sub

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.