Sub TestDValidation()
Dim i&, j&
If ActiveCell.Address = "$C$2" Then Exit Sub
j = -1
For i = 1 To [C2]
With ActiveCell.Offset(j + i).Validation
.Delete
.Add Type:=xlValidateList, Formula1:="André,Arnaud,Jacques,Jean,Marcel,Michel,Patrice,Patrick,Thierry"
End With
j = j + 1
Next i
End Sub