Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(9, 16).Value <> Feuil1.Range("u" & Feuil1.Range("u" & Rows.Count).End(xlUp).Row).Value Then
Feuil1.Range("u" & Feuil1.Range("u" & Rows.Count).End(xlUp).Row + 1) = Cells(9, 16).Value
End If
End Sub