[XL-2002]Tester le type de VBComponent via une macro

Re-bonjour (décidément je suis très actif aujourd'hui.)8O

J'importe des macros de classeurs (userform + module)
or suivant le type de VBComponent je ne fait pas le même traitement
il me faudrait donc une ligne pour tester le type de VBComponent que je puisse utiliser dans mon if par la suite.

Merci d'avance pour les réponses

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim VBComp As Object Dim VBComps As Object   Set VBComps = ThisWorkbook.VBProject.VBComponents For Each VBComp In VBComps Select Case VBComp.Type Case 1: MsgBox "module standard" Case 2: MsgBox "module de classe" Case 3: MsgBox "Userform" Case 100: MsgBox "module feuille ou thisworkbook" End Select Next VBComp Set VBComps = Nothing

---