Private Sub ChoixArticle_Change()
Dim s, ub%, a
s = Split(ChoixArticle): ub = UBound(s)
If ub > -1 Then
If IsError(Application.Match(s(0), choix1, 0)) Then
a = Filter(choix1, s(0), True, vbTextCompare)
If ub Then a = Filter(a, s(1), True, vbTextCompare)
If ub > 1 Then a = Filter(a, s(2), True, vbTextCompare)
If ub > 2 Then a = Filter(a, s(3), True, vbTextCompare)
If ub > 3 Then a = Filter(a, s(4), True, vbTextCompare)
End If
End If
ChoixArticle.List = IIf(IsArray(a), a, choix1)
If ChoixArticle.ListIndex = -1 Then ChoixArticle.DropDown Else ChoixArticle_click
End Sub