Microsoft 365 Créer une gestion de stock

Bonjour à tous,
Je suis nouveaux sur ce forum est je suis embêter avec une formule si je peux appeler cela comme ça.
dans développeur quand je veux tester pour ajouter un article j'ai additem qui est surligne en bleu et je ne comprend pas pourquoi.
Merci de votre aide.
Private Sub CommandButton1_Click()

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 >= 30 Then 'si il ya plus de 30 articles
MsgBox " trop d'article pour cette commande il faut créer une autre commande"
Else


'rechercher 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 liste

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
memoire = memoire + 1

'vider l'article et le nombre

Me.Cbx_article = ""
Me.Txt_nombre = ""
End If

End If

End Sub