Bonjour
Avec le code que je t'avais fourni la modification des checkbox est semi-automatique
Je m'explique l'action manuelle sur l'une des deux modifie automatiquement la 2ème
Donc on peut dire que les checkbox sont cliqués simultanément , donc une seule marque devrait suffire, comme elles fonctionne ensemble
Tu places la variable Copie à True si les Checkbox sont cochées
Si ce n'est le cas tu testes ta cellule M7 et tu effaces sur l'autre feuille la case B12 (Pourquoi celle-ci)
Ce qui pourrait donner comme code
Option Explicit
Public Copie As Boolean
Sub MacroCommune7()
Dim Sh As Shape
Dim Ws As Worksheet
Copie = False
Set Sh = ActiveSheet.Shapes(Application.Caller)
Select Case Sh.Parent.Name
Case "Feuil1"
Set Ws = Feuil2
Case Else
Set Ws = Feuil1
End Select
Ws.Shapes(Sh.Name).ControlFormat = Sh.ControlFormat
If Sh.ControlFormat.Value = xlOn Then
Copie = True
Feuil1.Range("M7").Value = 1
Else
If Feuil1.Range("M7") = 1 Then
Feuil1.Range("M7").ClearContents
Ws.Range("B12").ClearContents
End If
End If
End Sub