Bonjour Michel, Ti
Et si un jour par un grand hazrd on avait besoin de faire la même manip par VBA ... (je ne vois pas l'utilité, but Just For The Fun !! lol)
Sub ReNameModule()
Dim OldModuleName As String
Dim NewModuleName As String
Dim TheModule As Object
OldModuleName = "Module1"
NewModuleName = "Toto"
Set TheModule = ThisWorkbook.VBProject.VBComponents(OldModuleName).CodeModule
TheModule.Name = NewModuleName
End Sub
Bon Samedi à tous et toutes
@+Thierry