Sub CopierModule()
Dim chemin$, t$, fich$
chemin = ThisWorkbook.Path & "\"
With ThisWorkbook.VBProject.VBComponents("Module3").CodeModule
t = .Lines(1, .CountOfLines) 'texte du code
End With
fich = Dir(chemin & "*.xls")
Application.ScreenUpdating = False
On Error Resume Next
While fich <> ""
If fich <> ThisWorkbook.Name Then
With Workbooks.Open(chemin & fich)
With .VBProject
.VBComponents.Remove .VBComponents("Module3")
.VBComponents.Add(1).Name = "Module3"
.VBComponents("Module3").CodeModule.AddFromString t
End With
.Close True
End With
End If
fich = Dir
Wend
End Sub