CreateCellElement2 Unknown Error


First, I'm French, so sorry for my bas English.

I have tried to make a VBA macro to create a cellElement. But I Have an unknown error on the function.

Sub placeCell()

Dim bscale As Point3d
bscale = Point3dOne  ' all components 1.0

Dim origin As Point3d

origin.X = 0
origin.Y = 50
origin.Z = 0

Dim oCell As CellElement
Set oCell = Application.CreateCellElement2("example", origin, bscale, False, Matrix3dIdentity)
End Sub

Can you help me?

Thanks a lot