Test d'une valeur d'une feuille

Bonjour à tous!

J'ai un problème sur lequel je bloque depuis plusieurs jours.
En fait je souhaite faire le test suivant:

si la valeur de la feuil1 de la cellule (i,1) est egale à la valeur de la feuil2 de la cellule (i,1) alors ecrire 1 dans la cellule (i,2) de la feuil2.

Voici mes essais:

Sub test()
    For Each c In Sheets("Feuil2").[a1:a100]
        If c.Value = Sheets("Feuil1").[a1] Then c.Offset(0, 1).Value = Sheets("Feuil1").[b1]
    Next c
End Sub

==> Le problème est qu'ici je ne recupere que la premiere valeur de ma feuille 1

Set F1 = Sheets("Feuil1")
Set F2 = Sheets("Feuil2")
For i = 1 To 100
    If F1.Cells(i, 1) = F2.Cells(i, 1) Then
       F2.Cells(i, 2).FormulaR1C1 = "test"
    End If
Next

==> Et ici, rien ne se passe!! :(

Si quelqu'un pourrait me debloquer...
En vous remerciant par avance!

salut,

dim i as integer

for i = 1 to 100
    if Sheets("Feuil1").Cells(i, 1).Value = Sheets("Feuil2").Cells(i, 1).Value then
       Sheets("Feuil2").Cells(i, 2).Value = 1
    end if
next i

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

Bonjour Mortalino!
Déjà merci pour ta réponse super rapide! ;)
Par contre, je pense que je me suis mal exprimé... En fait dans ma feuille 1, l'ordre des valeurs n'est pas la meme que dans la feuille 2. C'est peut-être pour ca que ma macro (et la tienne) ne donne rien.
En fait, je souhaite tester toutes les valeurs de la colonne A de la feuille 1 et si une de ces valeurs est egale à une valeur de la colonne A de la feuille 2 alors mettre 1 dans la deuxieme colonne de ma feuille 2.

En tout cas, mille merci pour ta reponse.

Merci mille fois Mortalino! C'est nickel!!
J'ai encore beaucoup de mal dans les boucles!!
Passe une bonne journée,
A +,
Seb