Userform Combobox: se positionner sur un élément

Private Sub UserForm_Activate()
With ComboBox1
    .DropDown
    .TopIndex = 3
End With
End Sub

ComboBox1.ListIndex = x

Private Sub UserForm_Initialize()
With ComboBox1
    .List = Range("A1:A10").Value
    .ListIndex = 3
End With
End Sub

Private Sub UserForm_Initialize()
'Stop
ActiveSheet.ChartObjects("Graphique 1").Activate
ComboBox1.AddItem "rouge"
ComboBox1.AddItem "Vert"
ComboBox1.AddItem "Bleu"
ComboBox2.AddItem "rouge"
ComboBox2.AddItem "Vert"
ComboBox2.AddItem "Bleu"
ComboBox3.AddItem "rouge"
ComboBox3.AddItem "Vert"
ComboBox3.AddItem "Bleu"
'ComboBox1.TopIndex = 1 '.SetFocus ' = 1
'ComboBox2.ListIndex = 2
'ComboBox3.ListIndex = 3
With ComboBox1
    .DropDown
    '.TopIndex = 3
    Application.SendKeys ("~")
    Application.SendKeys ("{DOWN}")
End With
With ComboBox2
    .DropDown
    '.TopIndex = 3
    Application.SendKeys ("~")
    Application.SendKeys ("{DOWN}")
    Application.SendKeys ("{DOWN}")
End With
With ComboBox3
    .DropDown
    '.TopIndex = 3
    Application.SendKeys ("~")
    Application.SendKeys ("{DOWN}")
    Application.SendKeys ("{DOWN}")
    Application.SendKeys ("{DOWN}")
End With