Re,
Ou plus simplement :
Code:
Sub ExeMacro()
' Exemacro Macro
'adresse de cellule
Sheets("feuil2").Activate
If Activecell.Address = "$J$5" Then
'plage de donnée dans j5
If Activecell.Value > 0 and Activecell.value<1000 Then Call Unprotect
If Activecell.Value = "annulé" Then Call Annulé
End If
End Sub
Cordialement