Dim f, ligneEnreg, choix1(), tblBD()
Private Sub UserForm_Initialize()
Set f = Sheets("BD")
tblBD = Range("A2:G" & [A65000].End(xlUp).Row).Value ' BD
n = f.[A65000].End(xlUp).Row - 1
ReDim choix1(1 To n)
For i = 1 To n
choix1(i) = tblBD(i, 1) & " " & tblBD(i, 2)
Next i
Call Tri(choix1, LBound(choix1), UBound(choix1))
Me.ChoixNom.List = choix1
End Sub
Private Sub Choixnom_Change()
If Me.ChoixNom.ListIndex = -1 And IsError(Application.Match(Me.ChoixNom, choix1, 0)) Then
Me.ChoixNom.List = Filter(choix1, Me.ChoixNom.Text, True, vbTextCompare)
Me.ChoixNom.DropDown
Else
ChoixNom_click
End If
End Sub