[myDearFriend!]

Bonjour Stéphane,

Ah ben oui, ta dernière précision n'est pas du luxe ! :angry:

Dans ce cas, il convient de modifier la procédure Worksheet_Change() du module de code de la feuille 1 comme suit :

Private Sub Worksheet_Change(ByVal Target As Range)
      If Not Application.Intersect(Target, Range('B4')) Is Nothing Then
            StopClign
            If Target.Value > Range('C4').Value Then
                  Clign
            End If
      End If
End Sub

Cordialement,