Bonjour,
Une piste, il te faut créer un module avec le "Module1" (les autres doivent avoir un nom différent, sinon, adapter) et mettre ces lignes de code dedans :
Sub Noms_Modules()
Dim ColModule As Object
Dim Module As Object
Dim I As Integer
Set ColModule = ActiveWorkbook.VBProject.VBComponents
'parcour la collection de modules
For Each Module In ColModule
'et évite le module "Module1" où se trouve cette proc
If Module.Name <> "Module1" Then
With Module.CodeModule
For I = 1 To .CountOfLines
'supprime toutes les lignes de code
.ReplaceLine I, ""
Next I
End With
End If
Next
ThisWorkbook.Save
End Sub
Cette proc supprime toutes les lignes de code des modules autres que "Module1". Elle peut être appelée à l'ouverture du classeur si la date d'expiration est arrivée :
Private Sub Workbook_Open()
'à l'ouverture du classeur, si la date
'd'expiration est arrivée supprime les lignes de code
If Date = "07/11/2012" Then Supprimer_Modules
End Sub
Hervé.