Ecriture libre dans une cellule

Bonjour,
Je suis débutante en vba. Voici mon problème: j'ai 2 colonnes A et B.
Ce que je voudrais: si la valeur dans une cellule de la colonne B = "en-cours" j'aimerais recopier la valeur de cette cellule dans la colonne A sinon j'aimerais pourvoir écrire ce que je veux dans la cellule de la colonne A.
Dites-moi si ce n'est pas clair.
Merci pour votre aide.

Code:

---

1 2 3

For i=1 to cells(Rows.Count,2).End(xlUp).Row If Cells(i,2)="en-cours" then Cells(i,1)=Cells(i,2) Next i

---