ThisWorkbook.VBProject.VBComponents.Item("UserForm1").Export "c:\copieUSF.frm" Workbooks("receveur.xls").VBProject.VBComponents.Import "c:\copieUSF.frm" Workbooks("receveur.xls").VBProject.VBComponents.Add (vbext_ct_StdModule) Workbooks("receveur.xls").VBProject.VBComponents.Item("module1").Name = "fonction"