Private Sub Worksheet_Change(ByVal Target As Range)
Dim maxi#
maxi = Val(Replace([G2], ",", "."))
Application.EnableEvents = False
Cells.Replace "~*", "", xlPart
Set Target = Intersect(Target, UsedRange)
If Not Target Is Nothing Then
For Each Target In Target 'si entrées multiples
If IsNumeric(Target) Then If CDbl(Target) > maxi Then Target.Select: MsgBox "Limite " & maxi & " dépassée !", 48: Exit For
Next
End If
Application.EnableEvents = True
End Sub