Fab007

With Selection.Validation
.Delete
'.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
' xlBetween, Formula1:="=$AJ" & j & ":" & NbCol + 1 & j

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=Range(Cells(j, 36), Cells(j, 36 + NbCol + 1))
.IgnoreBlank = True
.InCellDropdown = True
.InputT