Salutation la compagnie

J'aimerai changer la couleur de fond d'une DropBox.

J'ai essayé plusieurs tentative dont celle qui est dessous. Le code s'exécute mais ma dropbox reste désespérément blanche !

Merci pour votre aide.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub couleur()
 
Dim Sh As Shape
 
Set Sh = Sheets("Feuil1").Shapes.AddFormControl(xlDropDown, 100, 100, 200, 30)
    With Sh
        .ControlFormat.AddItem ("bonjour")
        .Fill.BackColor.RGB = RGB(150, 0, 0)
        .Fill.ForeColor.RGB = RGB(150, 0, 0)
        .Fill.Visible = msoTrue
    End With
 
End Sub