Sub CATMain()
    
    Dim rootDoc As ProductDocument
    Set rootDoc = CATIA.ActiveDocument
    
    Dim root As Product
    Set root = rootDoc.Product
    
    Dim oProds As products
    Set oProds = root.products
    
    Dim oSections As Sections
    Set oSections = root.GetTechnologicalObject("Sections")
    
    Dim oSection 'As Section
    Set oSection = oSections.Add
    
End Sub