Private Sub ComboBox1_Change()
With Feuil1
a = .Range("A1:Z1").Find(ComboBox1, , , xlWhole).Column
l = Application.CountA(.Columns(a)) - 1
ComboBox2 = ""
ComboBox2.List = .Cells(2, a).Resize(l, 1).Value
'autre possibilité
'ComboBox2.RowSource = "liste1!" & .Cells(2, a).Resize(l, 1).Address
End With
End Sub