Bonjour Fréd,
C’est ce que j’ai fais, au lieu d’écrire :
ActiveWorkbook.Sheets(I).Range("a2:d5000").Clear
Alors j’ai mis :
ActiveWorkbook.Sheets(I).Range("a2:d50").Clear
Donc, j’ai récupère juste les adresses de mes plages que je dois supprimer.
Dans tt les cas, l’exemple bouton qui permet de supprimer toutes les données était juste une expérience qui me permettait de comprendre le problème.
Merci Gérard pour le Freeware Karcher.xla. Entre nous, ce petit programme fait des miracles, je l’avoue! Mon application a passé de 10MK a 400K. Sérieusement ce truc est fabuleux.
Toute fois, quand j’ajoute des nouvelles données dans une ligne dans n’importe quelle feuille et que je fais Ctrl-s (enregistrer) alors la taille de mon fichier revient, quasiment a 8000Kb.
D’après moi, il faut pourvoir utiliser les fonctions de ce Add-In lors de l’appel de la procedure Workbook_BeforeSave.
Ahh, si seulement le proprio de ce fichier accepte de nous donner un coup de main ou même juste le PW de son Add-In!!!!! ;-)
Dans tt les cas, merci les gars, vous avez vraiment un bon esprit combatif et solidaire.