•>MJ13
Je me casse pas la tête avec un module de classe
Je fais cela comme ceci
VB:
Sub Affection()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.Type = 13 Then
shp.OnAction = "mRouge"
End If
Next
End Sub
Sub mRouge()
ActiveSheet.Shapes(Application.Caller).BottomRightCell.Offset(1, -1).Interior.Color = 255
End Sub