Catvba, send to service, help me please

Bonjour,
je cherche à realiser une macro me servant de duplication de produit et part depuis un Catdrawing.
Mon idee, se servir de la fonction "envoyer vers" + "rename" afin de copier et renommer la totalite des fichiers tout en effectuant une purge des fichiers non utilises dans le drawing....

Donc, je selectionne un CATDrawing, je fais un envoyer vers tout en renommant les fichiers...mais ca ne marche pas...je coince sur le setrenamefile (sinon, l'envoyer vers marche sans probleme)

Merci pour votre aide!
Bien cordialement


Mon code

Private Sub CommandButton1_Click()
Source = CATIA.FileSelectionBox("drawing source a dupliquer", "*.catdrawing", CatFileSelectionModeOpen) 'selection du drawing
CATIA.DisplayFileAlerts = False 'desactive les message catia
CATIA.Documents.Open (Source) 'j'ouvre le drawing
Path = CATIA.ActiveDocument.Path 'recup du chemin ou est enregistré le drawing
Nom = CATIA.ActiveDocument.Name 'recup du nom du drawing
initial = Path & "\" & Nom
Set Folder = CATIA.FileSystem.CreateFolder("New2") 'creation d'un nouveau dossier qui va acceuillir mes nouveaux fichiers
oFolder = Path & "\New2"

Dim send As SendToService
Set send = CATIA.CreateSendTo()

send.SetDirectoryFile (oFolder)

fichier = Dir(Path & "\" & "*.*")
While (fichier) <> ""
If fichier Like "*.CATPart" Or fichier Like "*.CATProduct" Then
iOldName = fichier
iNewName = fichier & "test"
'MsgBox fichier
send.AddFile (fichier)
send.SetRenameFile(iOldName,iNewName)
CATIA.CreateSendTo.SetRenameFile(iOldName,iNewName)
End If
fichier = Dir()
Wend


send.Run

CATIA.ActiveDocument.Close

nouveau = (oFolder & "\" & Nom)
CATIA.Documents.Open (nouveau)
CATIA.ActiveDocument.Save
End sub

Quel est l'erreur renvoyée ?