Dim f, TblBD(), choix1(), NbCol, ligneEnreg, ColClé
Private Sub UserForm_Initialize()
Set f = Sheets("DI")
TblBD = f.[A1].CurrentRegion.Value
NbCol = UBound(TblBD, 2)
OptionButton1_Click
End Sub
Private Sub OptionButton1_Click()
ColClé = 1
ListeChoix
End Sub
Private Sub OptionButton2_Click()
ColClé = 9
ListeChoix
End Sub
Private Sub ComboBox6_Change()
Me.ComboBox6.List = Filter(choix1, Me.ComboBox6.Text, True, vbTextCompare)
Me.ComboBox6.DropDown
End Sub
Sub ListeChoix()
Set Rng = f.Range("A2:A" & f.[A65000].End(xlUp).Row).Offset(, ColClé - 1)
choix1 = Application.Transpose(Rng)
Tri choix1, 1, UBound(choix1)
Me.ComboBox6.List = choix1
End Sub