Private Sub ComboBox1_Change()
Dim colonne&, Derlg&
fmrville.ComboBox2.Clear
With Sheets("source")
[B2:H2].Interior.ColorIndex = xlNone
colonne = Application.Match(ComboBox1.Value, .[2:2], 0)
.Cells(2, colonne).Interior.ColorIndex = 32
Derlg = .Cells(.Rows.Count, colonne).End(xlUp).Row
fmrville.ComboBox2.List = .Range(.Cells(3, colonne), .Cells(Derlg, colonne)).Value
End With
ComboBox2.ListIndex = 0
End Sub
Private Sub UserForm_Initialize()
Dim col&
With Sheets("source")
col = .Cells(2, .Columns.Count).End(xlToLeft).Column
.[B2:f2].Interior.ColorIndex = 32
fmrville.ComboBox1.List = Application.Transpose(.Range(.Cells(2, 2), .Cells(2, col)).Value)
End With
End Sub