Option Explicit
Private Sub Worksheet_Activate()
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row <> 15 Then Exit Sub
If Target.Column > 16 Then
Call Annuler
Exit Sub
End If
If Target.Column = 14 Then Range("O15").Select
Application.OnKey "0", "Mettre0"
Application.OnKey "{96}", "Mettre0"
Application.OnKey "1", "Mettre1"
Application.OnKey "{97}", "Mettre1"
Application.OnKey "2", "Mettre2"
Application.OnKey "{98}", "Mettre2"
Application.OnKey "3", "Mettre3"
Application.OnKey "{99}", "Mettre3"
Application.OnKey "4", "Mettre4"
Application.OnKey "{100}", "Mettre4"
Application.OnKey "5", "Mettre5"
Application.OnKey "{101}", "Mettre5"
Application.OnKey "6", "Mettre6"
Application.OnKey "{102}", "Mettre6"
Application.OnKey "7", "Mettre7"
Application.OnKey "{103}", "Mettre7"
Application.OnKey "8", "Mettre8"
Application.OnKey "{104}", "Mettre8"
Application.OnKey "9", "Mettre9"
Application.OnKey "{105}", "Mettre9"
End Sub