Bonjour!!!    
 
j'ai un probléme avec référene d'une selection!!!  
 
MsgBox "select a hole"
 
Dim InputObjectType(0), Status1
InputObjectType(0)="Hole"
 
Status1=selection1.SelectElement2(InputObjectType,"Select a hole",false)
If Status1 = "Cancel" Then selection1.Clear: Exit Sub
 
Dim reference1 As Reference
Set oHole = selection1.Item(1).value
Set reference1 = selection1.Item(1).Reference     ''' fausse''''
  qlq'1 pourrait me dire c ou le probleme!
merci bien