Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set d = CreateObject("Scripting.Dictionary")
For Each c In Sheets("Feuil1").Range("B1:XFD1") ' A Modifier - Nom Feuille et plage des cellules de la liste
If c.Value <> "" Then d(c.Value) = ""
Next c
If Not Intersect(Target, Range("E1:E10,G1:G10")) Is Nothing And Target.Count = 1 Then 'A Modifier - Cellules ayant la validation de données
Target.Validation.Delete
Target.Validation.Add xlValidateList, Formula1:=Join(d.keys, ",")
End If
End Sub