Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = 'G7' Then
Range('J7').Value = IIf(Target.Value < 20, 'OUI', '')
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(False, False) = 'J7' Then Target.Offset(0, 1).Select
End Sub