[COLOR="DarkSlateGray"][B][COLOR="SeaGreen"]'Dans le module de la feuille concernée :[/COLOR]
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$26" Then
If ActiveWorkbook.Names("Etat_C26").Value = "=0" Then
bascule_état_C26
macro12
End If
End If
End Sub
Sub bascule_état_C26()
With ActiveWorkbook.Names("Etat_C26")
If .Value = "=1" Then .Value = "=0" Else .Value = "=1"
End With
End Sub
[COLOR="SeaGreen"]'Dans le module de la feuille concernée ou dans un module standard :[/COLOR]
Sub macro12()
MsgBox "macro12 exécutée"
End Sub[/B][/COLOR]