Private Sub ComboBox3_change()
If Me.ComboBox3.ListIndex = -1 Then Exit Sub
' Je n'arrive pas à trouver le bout de code pour mettre dans une variable le : N° de ligne de l'item concerné
' le N° de ligne n'est pas un paramètre fixe, exemple : Tri - les valeurs affichées ne sont plus les bonnes.
Me.TextBox2.Value = Range("Catalogue!E" & Me.ComboBox3.Column(1, Me.ComboBox3.ListIndex))
Me.TextBox5.Value = Range("Catalogue!G" & Me.ComboBox3.Column(1, Me.ComboBox3.ListIndex))
Set mondico = CreateObject("scripting.dictionary")
For Each c In Range(f.[A3], f.[A65000].End(xlUp))
If c = Me.ComboBox1 And c.Offset(, 1) = Me.ComboBox2 And c.Offset(, 2) = "R1" Then mondico(c.Offset(, 3).Value) = c.Offset(, 3).Value
Next c
Me.ComboBox4.List = mondico.items
Me.ComboBox4.ListIndex = -1
End Sub