Private Sub Workbook_Open()
Dim NomFichModule As String, NomModule As String, Chemin As String, NomVBC As String
Chemin = "C:\"
NomVBC = "Test"
NomModule = "Test.frm"
NomFichModule = Chemin & NomModule
With ThisWorkbook
.VBProject.VBComponents.Remove .VBProject.VBComponents(NomVBC)
.VBProject.VBComponents.Import NomFichModule
.Save
End With
End Sub