Sub ListProcedures(NomModule As String)
Dim VBCodeMod As CodeModule
Dim StartLine As Long
Dim ProcName As String
Set VBCodeMod = [B]Workbooks(strNomFichier).VBProject.VBComponents(NomModule).CodeModule
With VBCodeMod[/B]
StartLine = .CountOfDeclarationLines + 1
Do Until StartLine >= .CountOfLines
strProcedures = strProcedures & .ProcOfLine(StartLine, vbext_pk_Proc) & "|"
StartLine = StartLine + _
.ProcCountLines(.ProcOfLine(StartLine, _
vbext_pk_Proc), vbext_pk_Proc)
Loop
End With
End Sub