XL 2016 Ecart d'un nombre par rapport au tirage

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer
Dim k&
Dim KeyCells As Range
'On limite le changement à la cellule K3
Set KeyCells = Range("K3")
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then
' on augmente toutes les valeurs de 1
    For x = 1 To 37
        Range("R" & x) = Range("R" & x) + 1
    Next x
' on soustrait 1 à la valeur qui vient d'être tirée
k = Range("K3").Value + 1
    Range("R" & k).Value = Range("R" & k).Value - 1
' On augmente de 1 le nombre de tirage
    Range("K16").Value = Range("K16").Value + 1
End If

End Sub