Bonjour Jungleragadon,
Un essai avec un Worksheet_Change
VB:
Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$C$9" Then
Range("C" & Target.Value + 4).Select
End If
End Sub
Vous remarquerez qu'avec 5 le curseur ne bouge pas car il va en ... C9.