Bonjour pauldub,
Je me suis aperçu, que s’il n’y avait aucun filtres sélectionnés et/ou avait été enlevés, cela créé une ( Erreur d’exécution ‘1004’ ).
Pour corrigé cette erreur, il faut ajouter cette ligne d’instruction (procédure et passe directement à la ligne suivante).
On Error Resume Next
Voici le code modifié.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
ActiveSheet.ShowAllData
End Sub
Cordialement.