Private Sub Cbx_article_Change()
Dim article As String
article = Me.Cbx_article.Value
'Rechercher dans la colonne article de la feuille 4
Part_prix = Application.VLookup(article, Sheets(4).Range("c:i"), 4, 0)
Part_stock = Application.VLookup(article, Sheets(4).Range("c:i"), 3, 0)
'Affichage des informations dans les labels associés
Me.Label_prix_unit.Caption = CCur(Part_prix) & " €"
Me.Label_stock.Caption = Part_stock
End Sub