Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Il faut faire un bon ménage de tout ce qui est superflu.
Ta question est aussi floue. Tu es le seul à savoir ce que tu as dans ton fichier.
Essaie toi de m'aider sans que tu saches ce qu'il y a dans mon fichier.
Tu peux essayer d'enregistrer ton fichier au format xlsb.
Sub Epurer()
Dim w As Worksheet, i&
For Each w In Worksheets
If w.[A1].Formula = "" Then w.[A1] = " "
i = w.Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
w.Rows(i + 1).Resize(w.Rows.Count - i).Delete
i = w.Cells.Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column
w.Columns(i + 1).Resize(, w.Columns.Count - i).Delete
With w.UsedRange: End With 'actualise les barres de défilement
Next
End Sub
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD