Bonjour,
Une façon de faire...
Resultat = Cells(Ligne,Colonne).Value
autre façon
Resultat = Range("A1").value
A+ L'expérience instruit plus sûrement que le conseil. (André Gide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

Merci à toi

je viens de réussir par contre mon programme marche pas tu peux y jeter un oeil
je veux simplement faire une boucle
et lorsque qu'il tombe sur une case non vide me récupère la valeur de cette case et écrit quelque chose sur une feuille dont le nom est le même que la case
exemple case "chaussée m'ouvre le feuille "chaussée"

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

Coucou
Est-ce que tes feuilles existent déjà ou veux-tu qu'elles soient créés dynamiquement ?
De plus pour info lorsque tu mets worksheets("ok") tu ne peux travailler que sur une feuille nommée 'ok' et non pas avec la valeur de la variable ok

Nan mes feuilles existent déja
merci

Ouais je me suis rendu compte de cela...
merci mais justement j'aimerais savoir comment on fais!!!! pour que cela marche

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