Excuter un code a la fermeture

Bonjour, j'ai un code qui s'excute à l'ouverture du fichier dans worksheet

Range("C8"). MergeArea. ClearContents

Range("C9"). MergeArea. ClearContents

Range("C10"). MergeArea. ClearContents

Range("C11"). MergeArea. ClearContents

Range("F8"). MergeArea. ClearContents

Range("F9"). MergeArea. ClearContents

Range("F16"). MergeArea. ClearContents

Range("D17"). MergeArea. ClearContents

Range("E19"). MergeArea. ClearContents

Range("E22"). MergeArea. ClearContents

Range("E23"). MergeArea. ClearContents est ce que ça serait possible de changer et de le mettre à la fermeture du fichier

Bonjour

Essaie en plaçant cette macro dans "ThisWorkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Range("C8").MergeArea.ClearContents
    Range("C9").MergeArea.ClearContents
    Range("C10").MergeArea.ClearContents
    Range("C11").MergeArea.ClearContents
    Range("F8").MergeArea.ClearContents
    Range("F9").MergeArea.ClearContents
    Range("F16").MergeArea.ClearContents
    Range("D17").MergeArea.ClearContents
    Range("E19").MergeArea.ClearContents
    Range("E22").MergeArea.ClearContents
    Range("E23").MergeArea.ClearContents
End Sub

Bye !

Bonjour,

Ouvre la fenêtre Microsoft Visual Basic pour Applications du classeur concerné. Double-cliquez sur ThisWorkbook dans la fenêtre Projet et sélectionnez BeforeClose dans la liste déroulante Procédure . La procédure Workbook_BeforeClose() est automatiquement créée. Déplace tes lignes de code entre le Sub et End Sub

Merci beaucoup