' "Mod_ListeValidationViaArray"
Option Explicit
Option Base 1

'Sub ListeValidationViaArray(dest, pl)
'  Dim items(), tb()
'
'  tb = Range(pl).Value2
'  items = ItemsValidation(tb)
'  With dest.Validation
'    .Delete
'    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
'    xlBetween, Formula1:=Join(items, ",")
'  End With
'
'End Sub

Function ItemsValidation(tb)
  Dim i%, n%
  Dim tmp()
  
  For i = 1 To UBound(tb)
    If tb(i, 1) <> "" Then n = n + 1
  Next i
  If n > 0 Then
    ReDim tmp(1 To n): n = 0
      For i = 1 To UBound(tb)
      If tb(i, 1) <> "" Then n = n + 1: tmp(n) = tb(i, 1)
    Next i
    ItemsValidation = tmp
  End If
  
End Function


