Sub Renommer()
'avec "Object" évite de devoir cocher la référence
Dim CollectionModule As Object
Dim Module As Object
Dim I As Integer
Set CollectionModule = ActiveWorkbook.VBProject.VBComponents
For Each Module In CollectionModule
Select Case Module.Type
Case 100
If Module.Name <> "ThisWorkbook" Then
I = I + 1
Module.Name = "MonModuleA_Moi" & I
End If
End Select
Next Module
End Sub