bon jai creer mon jeu de selection et jai attribuer les types et les filtres Sub recupPolyligne() Dim jeuDeSelection As AcadSelectionSet Dim filtertype(2) As Integer Dim filterdata(2) As Variant filtertype(0) = 0 filterdata(0) = "LWPOLYLINE" filtertype(1) = 0 filterdata(1) = "POLYLINE" Set jeuDeSelection =ThisDrawing.SelectionSets.Add("RECUPPOLYLIGNE") jeuDeSelection.Select acSelectionSetAll, , , filtertype, filterdata MsgBox jeuDeSelection.Count End Sub il me renvoi 0 alor que jen ai un certain nombre en tous cas superrieur a 0 sans les filtre sa fonctionne donc je pense que sa vien de la mais bon jai tous sinon pour lire un item dans mon jeu je fait jeuDeSelection.Item(0).ObjectName mais comme je cree une liste je voudrai remplacer le 0 par un compteur chose assez facile dans les autre langages de programmation mais la un message d'erreur apparait si je fait jeuDeSelection.Item(i).ObjectName ' i etant mon compteur donc un entier il me dit donc "argument index incorecte dans item" y a t il un type special de variable a metre dans item(ici) [Edité le 26/5/2009 par arcuce]