Private Sub ComboBox1_Change()
If Me.ComboBox1.ListIndex = -1 And IsError(Application.Match(Me.ComboBox1, choix1, 0)) Then
ReDim tblChoix1(1 To UBound(choix1))
tmp = "*" & UCase(Me.ComboBox1) & "*"
ligne = 0
For Each C In choix1
If UCase(C) Like tmp Then ligne = ligne + 1: tblChoix1(ligne) = C
Next C
If ligne > 0 Then
ReDim Preserve tblChoix1(1 To ligne)
Me.ComboBox1.List = SansDoublons(tblChoix1)
Me.ComboBox1.DropDown
End If
Else
End If
End Sub