Détruire des objets

Set model = ActiveModel
If (model Is Nothing) Or (Not model.IsKindOf(PdPDM.cls_Model)) Then
MsgBox « Le modèle courant n’est pas un modèle physique. »
Else
For each Itm in model.Tables
Itm.Delete
Next

End if