Private Sub ComboBox1_Change()
Dim FStock As Worksheet
Set FStock = Sheets("Stock")
If Me.ComboBox1 <> "" Then
Me.ComboRef.Clear
ReInit
Set C = FStock.Rows(2).Find(Me.ComboBox1)
If Not C Is Nothing Then
For I = 2 To FStock.Cells(Rows.Count, C.Column).End(xlUp).Row
Me.ComboRef.AddItem FStock.Cells(I, C.Column - 3)
Next I
End If
End If
End Sub
Ok j'ai encore quelques raccourci a apprendre...