Lien vers un objet autocad

Bonjour,

bonsoir, cela devrai etre simple mais je m'y perds.

Case "ml"
n = 10
Set Selection = AcadDoc.SelectionSets.Add("SelectionML")
FilterType(0) = 8
FilterData(0) = CalqueFichier
FiltersType = FilterType
FiltersData = FilterData
Selection.Select acSelectionSetAll, , , FiltersType, FiltersData

For Each Objet In Selection

If Objet.EntityName = "AcDbPolyline" Then
Longueur = Objet.Length
Compteur = Compteur + Longueur
End If
If Objet.EntityName = "AcDbLine" Then
Longueur = Objet.Length
Compteur = Compteur + Longueur
End If
If Objet.EntityName = "AcDbCircle" Then
Longueur = Objet.Circumference
Compteur = Compteur + Longueur
End If
If Objet.EntityName = "AcDbArc" Then
Longueur = Objet.ArcLength
Compteur = Compteur + Longueur
End If

If Sheets("Travail").Cells(m, n + 1).Value = "" Then
Sheets("Travail").Cells(m, n + 1).Value = Longueur
------------------------------------------------------------------------------------------------------
ICI
------------------------------------------------------------------------------------------------------
n = n + 1
End If

Cells(m, 10).FormulaLocal = "" & Replace(Cells(m, 10).FormulaLocal, "", "") & "+" & " " & Longueur

Next Objet

Sheets("Travail").Cells(m, 9).Value = Compteur
AcadDoc.SelectionSets.Item("SelectionML").Delete
Compteur = 0

Pouvez vous m'aide ?

Je voudrai que ma variable Longueur ou la Cells(m,n+1), dans le dernier IF soit un lien pour rendre visible autocad et zoomer sur l'objet ou le sélectionner... enfin que je face une action autocad.

avec l'evenement BeforeDoubleClick

ou un lien hypertext.

Merci