Sub Sans_Usf()
Dim VBComp
Dim ref As String
ref = "C:\Program Files\Fichiers communs\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB"
ThisWorkbook.VBProject.References.AddFromFile ref
ThisWorkbook.SaveAs "Q:\bilans\toto.xls"
Set VBComp = ThisWorkbook.VBProject.VBComponents("Userform1")
ThisWorkbook.VBProject.VBComponents.Remove VBComp
ThisWorkbook.Save
End Sub