bon bah c'est en cherchant qu'on trouve je crois....
alors j'ai retrouvé le post en question
https://forum.excel-pratique.com/excel/vba-lister-les-macros-sur-une-feuille-t7822.html
qui date de 2008 quand même ....
j'ai quand même apporter quelques modif pour mettre cela dans un fichier excel
la prochaine modif sera de lister le contenu de tous les fichiers se trouvant d'un dossier
Bonne soirée
Fred
Sub liste_macro()
'Nécessite d'activer la référence
'Microsoft "Visual basic For Application Extensibility 5.3"
Dim Ajout As Integer
Dim VBCmp As VBComponent
Dim cdMod As CodeModule
Dim Wb As Workbook
Dim Debut As Long
'Indiquez le nom du classeur ouvert
'Set Wb = ThisWorkbook
Set Wb = Workbooks("compilateurV3.xlsm")
Ajout = 1
'Boucle sur tous les composants du projet :
'Modules standards
'Modules de feuilles et de classeur
'Modules de classe
'UserForms
For Each VBCmp In Wb.VBProject.VBComponents
Set cdMod = VBCmp.CodeModule
With cdMod
Debut = .CountOfDeclarationLines + 1
Do Until Debut >= .CountOfLines
If Debut = 1 Then Range("A" & Range("A65536").End(xlUp).Row + 1) = cdMod
'Nom de la procédure
Debug.Print .Lines(.ProcBodyLine(.ProcOfLine(Debut, vbext_pk_Proc), vbext_pk_Proc), 1)
'Debug.Print .ProcOfLine(Debut, vbext_pk_Proc)
Range("A" & Range("A65536").End(xlUp).Row + 1) = .Lines(.ProcBodyLine(.ProcOfLine(Debut, vbext_pk_Proc), vbext_pk_Proc), 1)
' Range("A" & Range("A65536").End(xlUp).Row + 1) = .ProcOfLine(Debut, vbext_pk_Proc)
Debut = Debut + _
.ProcCountLines(.ProcOfLine(Debut, _
vbext_pk_Proc), vbext_pk_Proc)
Ajout = Ajout + 1
Loop
End With
Next VBCmp
End Sub