Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Nom$
On Error Resume Next
Nom = ThisWorkbook.Names("Données").Name
On Error GoTo 0
If Nom = "" Then If Not DéfNom Then Exit Sub
If Not Intersect(Target, Me.[Données]) Is Nothing And Target.Count = 1 Then
ThisWorkbook.Names.Add Name:="Qui", RefersTo:="=""" & Target.Value & """"
Else
ThisWorkbook.Names.Add Name:="Qui", RefersTo:="="""""
End If
End Sub