bonjour a tous

j'ai une boucle qui concerne 10 combobox (cmb-ref1 à 10)

cette boucle :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
For i = 1 To 10
reference = Me.Controls("cmb_ref" & i).Text
    Cells.Find(What:=reference, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
libelle = ActiveCell.Offset(0, 1).Text
Me.Controls("txt_lib" & i).Text = libelle
prix = ActiveCell.Offset(0, 3).Value
Me.Controls("txt_prix" & i).Value = prix
Next i
je ne sais pas comment la placé en évenement pour qu'elle fonctionne à chaque changement dans une des 10 combobox