Combobox sous condition

Bonjour à tous,

j'ai un petit morceau de code que je n'arrive pas à faire fonctionner

Private Sub UserForm_Initialize()

If Sheets("BD_Valeur").Range("D5") = "630S" Then
Me.ComboBox1.RowSource = "BD!C2:C10"

ElseIf Sheets("BD_Valeur").Range("D5") = "400S" Then
Me.ComboBox1.RowSource = "BD!D2:D10"

ElseIf Sheets("BD_Valeur").Range("D5") = "500S" Then
Me.ComboBox1.RowSource = "BD!E2:E10"
End If

Je souhaite choisir ce que je mets dans ma combobox en fonction de ma valeur de la case "D5"

Malheureusement cela ne fonctionne pas

Quelqu'un peut-il m'aider?

Merci d'avance

Bonjour,

Tout proche ...

Private Sub UserForm_Initialize()

   If Sheets("BD_Valeur").Range("D5") = "630S" Then
      Me.ComboBox1.RowSource = ("BD!C2:C10")

   ElseIf Sheets("BD_Valeur").Range("D5") = "400S" Then
      Me.ComboBox1.RowSource = ("BD!D2:D10")

   ElseIf Sheets("BD_Valeur").Range("D5") = "500S" Then
      Me.ComboBox1.RowSource = ("BD!E2:E10")
   End If
End Sub

ric

oui de peu

Merci cela fonctionne