Sub M_Cases() '
Dim sh As Shape
Application.ScreenUpdating = False
Dim col&, lig&
col = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Column
lig = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
Select Case col
Case 10
For Each sh In ActiveSheet.Shapes
If sh.Type = 8 Then
If sh.FormControlType = 1 Then
If sh.OLEFormat.Object.TopLeftCell.Row = lig And sh.OLEFormat.Object.TopLeftCell.Column < col Then
sh.OLEFormat.Object.Visible = Not sh.OLEFormat.Object.Visible
End If
End If
End If
Next sh
Case Else
End Select
Application.ScreenUpdating = True
End Sub