Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If NoMaj Then Exit Sub
If Target.Row > 20 Then
If Target.Column = 9 Then
If IsNumeric(CStr(Target)) Then Target.Offset(0, 1) = "X" Else Target.Offset(0, 1) = ""
End If
If Target.Column = 10 Then
If IsNumeric(CStr(Target)) Then Target.Offset(0, -1) = "X" Else Target.Offset(0, -1) = ""
End If
End If
Application.EnableEvents = True
End Sub