Liste déroulante un peu particulière

Bonjour à tous,

Quelqu'un aurait-il l'amabilité de m'indiquer comment je peux faire pour créer une liste déroulante sachant que les éléments constitutifs sont sujet à une condition.

Un exemple représentatif en pièce jointe.

Merci à tous et bonne soirée,

Vbabeginner

Bonjour,

un essai:

Sub List()
i = 1
[P:P].ClearContents
For Each c In Range("D6:D15")
  If c.Offset(, 2) = "OK" Then
     Cells(i, "P") = c
     i = i + 1
  End If
Next
Range("P1:P" & [P65000].End(xlUp).Row).Name = "Liste"
End Sub

bonsoir

un essai

cordialement

Bonsoir Patrick, Bonsoir Tulipe !

Les deux solutions fonctionnent parfaitement !

Merci !

Je m'en veux un peu de pas avoir trouvé la solution Vba ... C'était pas trop difficile !

Les formules de Tulipe par contre je ne m'en veux pas j'en suis pas capable

Bonne soirée et merci encore !

Vbabeginner