creation d'une part

Sub CATMain()
Dim documents1 'As Documents
Dim partDocument1 'As Document

Set documents1 = CATIA.Documents
Set partDocument1 = documents1.Add("Part")

End Sub