Private Sub ComboBox1_Change()
Dim i As Byte
For i = 1 To 5
Controls("ComboBox" & i) = Controls("ComboBox" & i).List(ComboBox1.ListIndex)
Next i
End Sub
Private Sub ComboBox2_Change()
ComboBox1.ListIndex = ComboBox2.ListIndex
End Sub
Private Sub ComboBox3_Change()
ComboBox1.ListIndex = ComboBox3.ListIndex
End Sub
Private Sub ComboBox4_Change()
ComboBox1.ListIndex = ComboBox4.ListIndex
End Sub
Private Sub ComboBox5_Change()
If ComboBox5.ListIndex <> -1 Then
ComboBox1.ListIndex = ComboBox5.ListIndex
End If
End Sub
Private Sub Userform_Initialize()
Dim i As Byte
For i = 1 To 5
Controls("ComboBox" & i).List = Feuil1.Range(Cells(2, i), Cells(11, i)).Value
Next i
End Sub