Sub closeVBE() '-------------------------------------------------------- ' Pour l'utiliser...Il faut activer la référence ' "Microsoft Visual Basic For Applications Extensibility n.n" '************************************************************************* ' Il faut aussi :autoriser l'accès au modèle d'objets du projet VBA ' Sous XL2007 ou supérieur: Options Excel/Centre de gestion de la confidentialité/Paramètres du centre de gestion... ' et cocher Accès approuvé au modèle d'objet du projet VBA ' Sous XL <2007: Outils/Macro/Sécurité.../Editeurs approuvés, puis cocher Faire confiance au projet VBA '-------------------------------------------------------- Dim oVBe As VBProject Set oVBe = ThisWorkbook.VBProject If oVBe.Mode = vbext_vm_Run Then oVBe.VBE.MainWindow.Visible = False End If End Sub