Option Explicit
' valeur atteindre
Private Sub Worksheet_Change(ByVal c As Range)
Dim cc As Range
If c.Count > 1 Then Exit Sub
If c.Address = "$I$5" And c.Value <> "" Then
Set cc = Columns(1).Find(What:=[i5], LookIn:=xlValues, LookAt:=xlWhole)
If Not cc Is Nothing Then Application.Goto cc, True Else MsgBox "Valeur inexistante."
End If
End Sub
' i5 atteindre (par clic double)
Private Sub Worksheet_BeforeDoubleClick(ByVal c As Range, Cancel As Boolean)
If c.Column = 1 Then Range("i5").Select
End Sub