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