Bonjour
Le problème réside dans le champ possible de la position de la cellule active;
Par exemple, si tu veux sélectionner une cellule de ton tableau A3:D13, tu peux utiliser ce code de Feuille
Si tu veux une zone plus grande, tu modifie Range("A3:D13") dans le Code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A3:D13")) Is Nothing Then
Range("F10").Value = Range("A" & Target.Row).Value
End If
End Sub
Cordialement