Public Sub Temoin_Click()
'
' Vérification de l'appelant de la macro
If TypeName(Application.Caller) = "String" Then
'
' Vérification du nom de l'appelant
If Application.Caller = "shpTémoin" Then
With ActiveSheet.Shapes
.Range(Array("shpOption1", "shpOption2")).Visible = (.Item(Application.Caller).ControlFormat.Value = 1)
End With
End If
End If
End Sub