Création d'une list box par une macro

Fermé
AmateurExcel Messages postés 1 Date d'inscription mercredi 11 septembre 2013 Statut Membre Dernière intervention 11 septembre 2013 - Modifié par Chris 94 le 11/09/2013 à 18:05
Bonjour.
J'ai une macro qui crée une list box puis la renomme Clist. Jusque la tout fonctionne bien. Mais quand j'essai de compléter les critères de sélection, plus rien ne fonctionne. j'inclus une copie de la macro, pour bien comprendre.
Merci de votre aide.
Macro1 Macro
'

'
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ListBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=303.622641509434, Top:=21.7358490566038, _
Width:=68.6037735849057, Height:=160.981132075472).Select
ActiveSheet.Shapes.Range(Array("ListBox1")).Name = "Clist"
On Error Resume Next ' Diffère la gestion d'erreur.


ActiveSheet.Select
ActiveSheet.Shapes.Range(Array("Clist")).Select
With Selection.Left = 234
.ColumnCount = 2
.Top = 50
End With
ActiveSheet.Clist.ListFillRange = Range(Cells(2, 1), Cells(8, 2)).Address
End Sub