Selection a l'ecran en conservant la selection existante

Bonjour
J'ai un code qui modifi le calque de certains objet

Mon problème est...
Je veux être en mesure de conserver, s'il y en a, les objets qui auront été sélectionnés avant de départ de ma commande (un genre de select previous) tout en ayant la possibilié d'ajouter des objets après le départ de ma commande (select on screen).


voici une section de mon code
*****************************

Dim sset As AcadSelectionSet
Dim acEnt As AcadEntity
Dim objlayer As AcadLayer

On Error Resume Next

Set sset = ThisDrawing.SelectionSets.Add("SS1")
sset.SelectOnScreen

**********************************

J'ai essayé sset.Select acSelectionSetLast, mais sans succès


Est-ce que quelqu'un a une piste de solution?

Merci!