bonjour jean-marie,
copie cette macro sur la page code de la feuille 1,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set x = Application.Intersect(Target, Range("A1:A500"))
If Not x Is Nothing Then
Sheets("Feuil2").Range("M5") = Sheets("Feuil1").Cells(Target.Row, 2)
End If
Sheets("Feuil2").Activate
End Sub
sab