Oui c'est énervant et pas cool
l'année dernière g eu ce pb et mes recherches ont abouti a un nettoyage automatique.
je suis passé de 64 Mo a 12 et depuis il ne grossit plus !!!!
----------------Suppression des lignes inutilisées
If Not DCell Is Nothing Then
Sht.Range(DCell, Sht.Cells([A:A].Count, 1)).EntireRow.Delete
Set DCell = Nothing
Set DCell = Sht.Cells.Find("*", , , , xlByColumns, xlPrevious)(, 2)
'----------------Suppression des colonnes inutilisées
If Not DCell Is Nothing Then Sht.Range(DCell, Sht.[IV1]).EntireColumn.Delete
End If
Si tu as plusieurs onglet alors Bingo g la soluce c'est de partir avec de :
For Each Sht In Worksheets
Avant = Sht.UsedRange.Cells.Count
Application.StatusBar = Sht.Name & "-" & Sht.UsedRange.Address
voilà voilà !!!!