Private Sub Worksheet_Change(ByVal Target As Range)
'Macro par DAN pour Bcar
'Fil : [B]Lien supprimé[/B]
Application.ScreenUpdating = False
On Error Resume Next
If Application.Intersect(Target, Range('S:S')) Is Nothing Then Exit Sub
If Target.Value = 'NON' Then le nom de ta macro
Application.ScreenUpdating = True
End Sub