Sélectionner une cellule en VBA

Bonjour,

je veux faire une macro qui sert à sélectionner une cellule
(et qui fasse une certaine action selon la valeur de cette cellule)

voici les macros que j'utilise

Sub haut()
'
' haut Macro
'
' Touche de raccourci du clavier: Ctrl+i
'
Range("A14").Value = Range("A14").Value + 1
x = Range("a15").Value
y = Range("a14").Value



End Sub
Sub bas()
'
' bas Macro
'
' Touche de raccourci du clavier: Ctrl+k
'
Range("A14").Value = Range("A14").Value - 1
x = Range("a15").Value
y = Range("a14").Value

End Sub
Sub gauche()
'
' gauche Macro
'
' Touche de raccourci du clavier: Ctrl+j
'
Range("A15").Value = Range("A15").Value - 1
x = Range("a15").Value
y = Range("a14").Value

End Sub
Sub droite()
'
' droite Macro
'
' Touche de raccourci du clavier: Ctrl+l
'
Range("A15").Value = Range("A15").Value + 1
x = Range("a15").Value
y = Range("a14").Value

End Sub