Hello Mayrou,
I think it would help you.
Sub CATMain()
Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument
Dim selection1 As selection
Set selection1 = CATIA.ActiveDocument.selection
selection1.Search "Drafting.'Generated Item'.Symbol=Cross,all"
End Sub