Sub Worksheet_Change(ByVal Cible As Range)
If WorksheetFunction.IsOdd(Cible.Column) And Not (IsNumeric(Cible.Value)) Then
Application.EnableEvents = False
Cible.Value = ""
Application.EnableEvents = True
End If
End Sub
Sub Worksheet_Change(ByVal Cible As Range)
If Not Intersect(Cible, Range("F10:T200")) Is Nothing And WorksheetFunction.IsEven(Cible.Column) And Not (IsNumeric(Cible.Value)) Then
Application.EnableEvents = False
Cible.Value = ""
Application.EnableEvents = True
End If
End Sub