Bonjour,
J'utilise la fonction "If Not Intersect" pour effacer des formes (shapes) situées dans un range bien défini avec le code suivant :
Dim A As Integer
A = 7
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If Not Intersect(sh.TopLeftCell, Range(Cells(A, 1), Cells(A + 25...