pb macro

[Jul74ien74]

bonjour

voici une macro

Sub RAZ()
For Each Sh In ActiveSheet.Shapes
If Not Intersect(Range(Sh.TopLeftCell.Address), Range("F:F")) Is Nothing Or _
Not Intersect(Range(Sh.BottomRightCell.Address), Range("F:F")) Is Nothing Then
Sh.Delete
End If
Next Sh
End Sub


Elle me renvoie comme erreur
erreur 1004
Erreur définie par l'application ou par l'objet


Pkoi???

 

[camarchepas]

Re : pb macro

Bonjour ,

Pas d'anomalie pour moi.

En xl 2010 , par contre Sh pas défin c'est peut être la cause