Macro suppressions lignes et colonnes

Bonjour à tous,

Je souhaiterais réduire la taille de mon fichier excel, et pour cela je voudrais supprimer sur chaque onglet les lignes, disons de la ligne 180 à la fin, et toutes les colonnes AE à la fin. J'ai énormément d'onglet donc faire onglet par onglet est compliqué, je me disais qu'avec une macro ce serait plus simple.

Est-ce possible ? et si oui comment ?

Merci d'avance

Bonne journée

Bonjour,

Quelques lignes, à tester :

Public Sub Menage()

    Dim oSh As Worksheet

    For Each oSh In Worksheets
        oSh.Rows("180:" & Rows.Count).Delete
        oSh.Columns("AE:XFD").Delete
    Next oSh

End Sub

Bonne journée

Bouben

C'est parfait merci !