Supprimer boucle code module par appel direct au module

Bonjour,
J'ai ce code qui fonctionne parfaitement :

Code:

---

1 2 3

For Each oMod In ThisWorkbook.VBProject.VBComponents If oMod.CodeModule = NomModule Then ...

---

Je ne souhaite plus parcourir tous les modules puisque je connais le nom de mon module dans la variable NomModule.
Comment supprimer la boucle par un appel direct à mon module ?
Merci de votre aide

Bonjour,

pour pointer un module particulier via son nom, un exemple

Code:

---

1 2	Dim LeModule As VBComponent Set LeModule = ThisWorkbook.VBProject.VBComponents("Module5")

---

Merci beaucoup joe.levrai, cela fonctionne parfaitement :merci: