Certains utilisateurs du parc que je gère, se plaignent de bugs (freeze de windows, obligé ctrl+alt+suppr) lors de leur demande d'enregistrement ou l'impression de documents excels.
En examinant leurs fichiers, et après une multitude de copier collé , j'ai trouvé d'ou venais le problème, il y a des images de "petits carrés" sur leur document, qui ne peuvent être supprimé car ils buggent le pc quand on clic droit dessus.
Voici une macro qui efface toutes les Shapes (images, flèches, dessins, ...) de la feuille active.
VB:
Sub SupprimerObjets()
Dim objet As Shape
'boucler sur chaque objet de la feuille active
For Each objet In ActiveSheet.Shapes
'supprimer l'objet
objet.Delete
Next objet
End Sub