Bonjour
comme j'ais du mal a lire les nom des objet a eviter
jais fait avec 2 combobox a voir si sa te va
Dim Sh1 As Object
Dim Sh2 As Object
Private Sub UserForm_Activate()
Dim dernier&, I&
Set Sh1 = Feuil10 ' = CodeName
Set Sh2 = Feuil9
dernier = WorksheetFunction.CountA(Sh1.Rows(1))
For I = 1 To dernier
ComboBox1.AddItem Sh1.Cells(1, I)
Next
End Sub
Private Sub ComboBox1_Change()
Dim Col&
Col = ComboBox1.ListIndex + 1
With ComboBox2
.Clear
.List = Sh1.Range(Sh1.Cells(2, Col), Sh1.Cells(Rows.Count, Col).End(xlUp)).Value
End With
End Sub
A+
Maurice