Sub rechercheVBE()
'
'Nécessite d'activer la reference:
'"Visual basic For Application Extensibility 5.3"
'
Dim i As Integer, x As Integer
Dim Fichier As String, Recherche As String, Msg As String
Dim Ligne As String
Dim VBCmp As VBComponent
Fichier = "Nom classeur.xls"
Recherche = "MotTest"
For Each VBCmp In Workbooks(Fichier).VBProject.VBComponents
Msg = VBCmp.Name
x = Workbooks(Fichier).VBProject.VBComponents(Msg). _
codemodule.CountOfLines
For i = 1 To x
Ligne = Workbooks(Fichier). _
VBProject.VBComponents(Msg).codemodule.Lines(i, 1)
If InStr(1, Ligne, Recherche, vbTextCompare) Then
MsgBox "Trouvé"
Exit Sub
End If
Next i
Next VBCmp
MsgBox "Pas trouvé"
End Sub