Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub 'si la sélection n'a pas lieu dans la colonne A, sort de la procédure
Range("B1").Value = Target.Value 'la cellule B1 prend la valeur de la cellule active
End Sub