Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range, c as range, d as object
With Sheets("Suivi menuiserie")
Set Rng = .Range("A6:A" & .Range("A" & Rows.Count).End(xlUp).Row)
End With
If Target.Address = "$C$4" Then
Set d = CreateObject("Scripting.Dictionary")
For Each c In Rng: d(c.Value) = "": Next c
Target.Validation.Delete
Target.Validation.Add xlValidateList, Formula1:=Join(d.keys, ",")
End If
End Sub