Executer une macro sans bouton

Bonjour,

J'essaie de lancer une macro avec exécution automatique dès qu'une cellule est modifiée.

Voici ce que j ai écrit :


Private Sub Worksheet_Change(ByVal Target As Range)
' Montantdemande
' Dim Range As Integer, commentaire As String
'Commentaire en fonction du montant
Select Case (Range("c12"))
Case 500 To 80000
commentaire = "OK"
Case Else
commentaire = "Doit etre compris entre 500CHF et 80'000CHF"
End Select

ActiveSheet.Unprotect Password:="aaaa"
Range("i12") = commentaire
ActiveSheet.Protect "aaaa"


End Sub

Mais vous l'aurez compris... ça ne fonctionne pas... par contre quand je nomme ma macro et que je la joue grâce au bouton "run", elle fonctionne
Je vous remercie grandement par avance pour votre aide!
Aurélie