XL 2016 Changer une propriété d’un contrôle activeX

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
  Me.CommandButton1.Enabled = [a1].Value > 10
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  ' Vérifier l'adresse de la cellule mopdifiée
  If Target.Address = "$A$1" Then
    ' Si cellule OK, vérifier le contenu
    If Target.Value > 10 Then
      Me.CommandButton1.Enabled = False
    Else
      Me.CommandButton1.Enabled = True
    End If
  End If
End Sub

Private Sub Worksheet_Change(ByVal T As Range)
Me.CommandButton1.Enabled = (T.Value > 10) * (T.Address = "$A$1")
End Sub