Dim ancienne_adresse As String, nouvelle_adresse As String Dim i As Integer Private Sub Worksheet_SelectionChange(ByVal Target As Range) If i = 0 Then ancienne_adresse = nouvellevaleur nouvelle_adresse = Target.Address i = 1 Cells(65536, Target.Column).Select End If ancienne_adresse = nouvelle_adresse Application.Goto Range(ancienne_adresse) i = 0 End Sub
Range("F65536").Select Application.Goto Range("F40")