bonjour a tous

voila j'ai une série de 5 combobx du nom de produit(1,2,3,4,5)

lorsque je sélectionne un produit dans la combobox produit1
une recherche en vlookup me remplie 2 textboxs, stock_actuel et prix (eux aussi numéroté de 1 à 5)
voici le code, qui se répété 5 fois
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Private Sub produit1_Change()
Dim prix As Single, stockact As Single
Dim NomPièce As Variant
NomPièce = produit1.Value
prix = WorksheetFunction.VLookup(NomPièce, Range("stock"), 5)
prix1.Value = prix
stockact = WorksheetFunction.VLookup(NomPièce, Range("stock"), 3)
stock_actuel1.Value = stockact
End Sub
ma question :
est-il possible de réduire ces 5 code à un seul ?