Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("BON DE COMMANDE").Unprotect "MDP"
If Target.Column = 6 And Target.Row >= 16 And Target.Row <= 44 Then
temp = ""
For Each c In Sheets(Sheets("BON DE COMMANDE").Range("K11").Value).Range("A12:A" & 1000)
If InStr(temp, c.Value) = 0 Then temp = temp & c.Value & ","
Next c
Target.Validation.Delete
Target.Validation.Add xlValidateList, Formula1:=Left(temp, Len(temp) - 1)
End If
End Sub