Excel VBA : Récupérer la valeur d'une cellule

Sub essai()
Dim Cellule As Variant
Dim ok As Variant
  For Each Cellule In Range("ListeDéroulante")
    Do While Cellule <> ""
      ok = Cellule
      Worksheets("ok").Range [A1] = "yes"
    Loop
  Next
End Sub

Dim Cellule As Range
Dim nomfeuille As String
For Each Cellule In Range("Liste deroulante")
    If Cellule.Value <> "" Then
        nomfeuille = Cellule.Value
        Worksheets(nomfeuille).Range("A1") = "yes"
    End If
Next