Sous condition, cocher des cases sur 2 feuilles et déclencher les macros associées...

Sub Bonjour()
MsgBox "Bonjour !" 'votre code
End Sub

Sub AuRevoir()
MsgBox "Au revoir !" 'votre code
End Sub

Sub Macro() 'affectée aux cases des 2 feuilles
Dim test As Boolean, o As Object
test = ActiveSheet.CodeName = "Feuil1"
Set o = IIf(test, Feuil1, Feuil4).DrawingObjects(Application.Caller)
If o = 1 Then If test Then Bonjour Else AuRevoir
If ActiveSheet.DrawingObjects("Check Box D") = 1 Then _
  Coche o, IIf(test, Feuil4, Feuil1), IIf(test, "AuRevoir", "Bonjour"), IIf(test, 1, -1)
End Sub

Sub Coche(ob As Object, F As Worksheet, TexteMacro$, sens%)
Dim adr As String, o As Object
adr = ob.TopLeftCell.Address
For Each o In F.DrawingObjects
  If o.TopLeftCell.Offset(, sens).Address = adr Then
    o = ob.Value
    If o = 1 Then Application.Run TexteMacro
    Exit Sub
  End If
Next
End Sub

Sub Bonjour(lettre As String)
MsgBox "Bonjour depuis la colonne " & lettre & " !" 'votre code
End Sub

Sub AuRevoir(lettre As String)
MsgBox "Au revoir depuis la colonne " & lettre & " !" 'votre code
End Sub

Sub Macro() 'affectée aux cases des 2 feuilles
Dim test As Boolean, o As Object, lettre As String
test = ActiveSheet.CodeName = "Feuil1"
Set o = IIf(test, Feuil1, Feuil4).DrawingObjects(Application.Caller)
lettre = Mid(o.TopLeftCell.Address, 2, 1) 'lettre de la colonne
If o = 1 Then If test Then Bonjour lettre Else AuRevoir lettre
If ActiveSheet.DrawingObjects("Check Box D") = 1 Then _
  Coche o, IIf(test, Feuil4, Feuil1), IIf(test, "AuRevoir", "Bonjour"), IIf(test, 1, -1)
End Sub

Sub Coche(ob As Object, F As Worksheet, TexteMacro$, sens%)
Dim adr As String, o As Object
adr = ob.TopLeftCell.Address
For Each o In F.DrawingObjects
  If o.TopLeftCell.Offset(, sens).Address = adr Then
    o = ob.Value
    If o = 1 Then Application.Run TexteMacro, Mid(o.TopLeftCell.Address, 2, 1)
    Exit Sub
  End If
Next
End Sub

lettre = o.TopLeftCell.Offset(11 - o.TopLeftCell.Row) 'lettre de la colonne

Sub Salut(F As Worksheet, lettre As String)
MsgBox IIf(F.CodeName = "Feuil1", "Bonjour", "Au revoir") _
  & " depuis la colonne " & lettre & " !" 'votre code
End Sub

Sub Macro() 'affectée aux cases des 2 feuilles
Dim test As Boolean, o As Object, lettre As String
test = ActiveSheet.CodeName = "Feuil1"
Set o = IIf(test, Feuil1, Feuil4).DrawingObjects(Application.Caller)
lettre = o.TopLeftCell.Offset(11 - o.TopLeftCell.Row) 'lettre de la colonne
If o = 1 Then Salut IIf(test, Feuil1, Feuil4), lettre
If ActiveSheet.DrawingObjects("Check Box D") = 1 Then _
  Coche o, IIf(test, Feuil4, Feuil1), lettre
End Sub

Sub Coche(ob As Object, F As Worksheet, lettre)
Dim lig As Long, col As Integer, o As Object
lig = ob.TopLeftCell.Row
col = Application.Match(lettre, F.Rows(11), 0)
For Each o In F.DrawingObjects
  If o.TopLeftCell.Row = lig And o.TopLeftCell.Column = col Then
    o = ob.Value
    If o = 1 Then Application.Run "Salut", F, lettre
    Exit Sub
  End If
Next
End Sub

Sub Copie()
Dim test As Boolean, cf
With ActiveSheet
  test = .CodeName = "Feuil1"
  cf = .Shapes("Check Box D").ControlFormat.Value
  IIf(test, Feuil4, Feuil1).Shapes("Check Box D").ControlFormat = cf
  If cf = xlOn Then _
    IIf(test, Feuil4, Feuil1).[B12:C29] = .[B12:C29].Value
End With
End Sub