Catia VBA - replace surface command

Question

I try to find a solution to replace a surface with another one in Catia V6 with macro.

I have a surface Extract.2, which is in "test" geometric