Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
If c.Address = "$G$8" Then
If Not IsNumeric(c) Or c > 350 Then
MsgBox "Saisir une valeur entre 0 et 350 "
With c: .Select: .ClearContents: End With
End If: End If
End Sub