Option Explicit
Dim L As Long, C As Long
Private Sub UserForm_Initialize()
Me.ComboBox1.List = WorksheetFunction.Transpose(Feuil14.[C7].Resize(, Feuil14.[IV7].End(xlToLeft).Column - 2).Value)
Me.ComboBox2.List = Feuil14.[B11:B22].Value
End Sub
Private Sub ComboBox1_Change()
C = ComboBox1.ListIndex + 3
GarnirChamps
End Sub
Private Sub ComboBox2_Change()
L = ComboBox2.ListIndex + 11
GarnirChamps
End Sub