Private Sub Workbook_SelectionChange(ByVal Target As Range)
' si longueur totale du menu <200
If Not Intersect([A1:A10], Target) Is Nothing And Target.Count = 1 Then
temp = ""
For Each c In [LISTE_NOMS]
If IsError(Application.Match(c, Range(Cells(1, Target.column), Cells(10, Target.column)), 0)) Then
temp = temp & c.Value & ","
End If
Next c
Target.Validation.Delete
If Len(temp) = 0 Then
temp = Target & ","
End If
Target.Validation.Add xlValidateList, Formula1:=Left(temp, Len(temp) - 1)
End If
End Sub