Suppression module

Bonjour !

Pour assurer la suppression automatique d'un module après 2 mois d'utilisation, j'aurais aimé procéder comme suivi :

Sub SuppDate()
 If Date > 10 / 3 / 2016 Then
    Call SupprimerLesModules
 End If

End Sub

Sub SupprimerLesModules()

        NomModule = "Module3"
        NomFichier = "PERSONAL.XLSB"
        With Workbooks(PERSONAL.XLSB)
            .VBComponents.Remove .VBComponents(Module3)
        End With

End Sub

Le code me semble bon et pourtant il ne fonctionne pas (le problème se situe au niveau des .VbComponents, etc). Ma question est en fait la suivante : comment utiliser le VBComponents.remove ? Pourquoi cela ne marche-t-il pas ici ?

Merci par avance

Bonjour

A tester

Sub SupprimerLesModules()
Dim NomModule As String

  NomModule = "Module3"
  With ThisWorkbook.VBProject
    .VBComponents.Remove .VBComponents(NomModule)
  End With

End Sub

Merci beaucoup !