Contenu d'un dicionnaire dans une liste de validation

Bonjour i need help

Sub test()
Set dico = CreateObject("scripting.dictionary")
a = Feuil1.UsedRange
For i = 2 To UBound(a)
dico.Item(a(i, 1)) = ""
Next

 With Feuil1.[L1].Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=???????????????

End With
End Sub

Comment fait-on où du moins est-ce possible de convertir un dictionnaire en liste de validation ?

Par avance merci...

Bonjour,

    .Delete
    .Add xlValidateList, Formula1:=Join(dico.keys, ",")

Ceuzin

Bonjour,

Une méthode

Sub test()
Dim Dico, k, a
Dim i As Long
Dim Liste As String
    Set Dico = CreateObject("scripting.dictionary")
    a = Feuil1.UsedRange
    For i = 2 To UBound(a)
        Dico.Item(a(i, 1)) = ""
    Next i
    For Each k In Dico.Keys
        Liste = Liste & k & ","
    Next k
    With Feuil1.[L1].Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=Left(Liste, Len(Liste) - 1)
    End With
End Sub

A+

Bonjour ceuzin, frangy. Vite fait bien fait. J'ai testé les deux tout est ok. Saluations à tous les deux.