Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next 'si le nom défini n'existe pas
If Target.Address = "$C$2" Or Target.Address = "$D$2" Then _
Application.Goto Evaluate(Target.Text), True
End Sub
Peux-tu me donner les étapes à suivre ?