Sub ImportModule_1_4()
Dim Fichier As String, Repertoire As String
Dim Wb As Workbook
Dim i As Byte
Application.ScreenUpdating = False
With ActiveWorkbook.VBProject.VBComponents
.Remove .Item("Module1")
.Remove .Item("Module4")
End With
Set Wb = ActiveWorkbook
'----------------------------------
'La procédure ne gère pas les erreurs si le nom des modules existe déja
'dans les classeurs.
Wb.VBProject.VBComponents.Import "C:\mod\Module 1_4\Module1.bas"
Wb.VBProject.VBComponents.Import "C:\mod\Module 1_4\Module4.bas"
Application.ScreenUpdating = True
MsgBox "Opération terminée."
End Sub