creation part et set geometrique

Sub CATMain()
Dim documents ' As Documents
Dim partDocument' As Document
Dim hybridBodies 'As HybridBodies
Dim hybridBody 'As HybridBody

Set documents = CATIA.Documents
Set partDocument = documents.Add("Part")
Set hybridBodies = catia.activedocument.part.HybridBodies
Set hybridBody = hybridBodies.add

End Sub