Re : "If Not Intersect" fonctionne mal !!!
Les 2 macros Insertion_Image et Insertion_Carto.
C'est le code :
If Not Intersect(sh.TopLeftCell, Range(Cells(Noligne, 5), Cells(Noligne + 2, 6))) Is Nothing Then sh.Delete
qui normalement supprime tous les objets dans le Range défini.
Le but est...