bonjour Renaud et le forum,
si la zone où se produit ce que tu cherches à faire s'appelle "plage"
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("plage")) Is Nothing Then: End
Range("A1") = Target.Offset(0, 2).Value
End Sub
A+
Michel