[Resolu] Afficher contenu cellule sur laquelle se trouve le curseur dans une autre

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("d1:d" & Range("d65536").End(xlUp).Row)) Is Nothing Then [f4].Value = Target
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, [D4:D13]) Is Nothing Then
        [F4] = Target
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim i As Integer
    i = Range("D65536").End(xlUp).Row
    If Not Intersect(Target, Range("D4:D" & i)) Is Nothing Then
        [F4] = Target
    End If
End Sub