Ave,
Il existe déjà une combobox listant les polices dans la barres d'outils Format....
Si tu veux rajouter une combobo dans la barre d'outils standard :
Sub zz_ajout()
Set C = Application.CommandBars('Standard').Controls.Add(Type:=msoControlComboBox, ID:=1728, Before:=23)
End Sub
Si tu veux initialiser une combo se situant sur la feuille ''Feuil1'' :
Sub zz_iniComboListePolices()
With Sheets('Feuil1')
.ComboBox1.Clear
Set C = Application.CommandBars.FindControl(ID:=1728)
For I = 1 To C.ListCount
.ComboBox1.AddItem C.List(I)
Next I
End With
End Sub
AV [aaa]