Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(" c6:c406,g6:g406")) Is Nothing Then
nx = Val(Replace(Target, "*", ""))
If nx > Val(Replace([I3], "*", "")) Then
Target.Select
If MsgBox("Attention valeur trop grande !" & vbCr & _
"Vous ne devez pas dépasser " & [I3], vbExclamation + vbRetryCancel, "ANNULATION") = vbRetry Then Target.Value = "" 'on efface
End If
End If
End Sub