Private Sub OptionButton1_Click()
With Sheets("BDD")
ComboBox1.List = IIf(OptionButton1, .Range("Tableau1").Value, .Range("Tableau2").Value)
End With
End Sub
Private Sub OptionButton2_Click()
With Sheets("BDD")
ComboBox1.List = IIf(OptionButton2, .Range("Tableau2").Value, .Range("Tableau1").Value)
End With
End Sub