Private Sub ComboBox2_click() ' alimentation ListBox
If IsNumeric(Me.ComboBox2) Then
clé2 = CDbl(Me.ComboBox2)
Else
If IsDate(Me.ComboBox2) Then
clé2 = CDate(Me.ComboBox2)
Else
clé2 = Me.ComboBox2
End If
End If
Me.ListBox1.Column = FiltreMultiColTransp(bd, clé2, colClé)
End Sub