Afficher le contenu d'une cellule dans une autre

Bonjour,

Je voudrais afficher la cellule active dans une autre cellule, mais limiter cette fonctione a une seule colone.

J'ai ce code qui fonctionne mais pour tout le document :

Private Sub Worksheet_SelectionChange(ByVal Target As range)
range("A3").Value = Target.Value
End Sub

Comment faire pour le limiter à la colonne 1 et uniquement de A7 à A200.

Merci de votre aide.

Torned

Bonjour et bienvenue sur le forum

Essaie ce code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A7:A200")) Is Nothing Then
        Range("A3").Value = Target.Value
    End If
End Sub

Bye !

Hey!

Évidement CA fonctionne du premier coup !

Extra !

Merci