Remplir une colonne en fonction de la précédente.

Bonjour à toutes et à tous,

De nouveau un nouveau petit problème.
Dans ma feuille excel, la colonne B comporte la devise, et la colonne C comporte le cours. Je veux que la colonne C soit remplie en fonction de la colonne B. J'ai appliqué le code suivant mais ça ne marche pas :

Sub Devise()

'Calcul du cours
Windows("classeur2.xls").Activate
Sheets("feuil1").Select


Dim i As Integer
Dim DernLigne As Long

DernLigne = Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To DernLigne


If Range("B" & i).Value = " USD" Then Range("C" & i).Value = 8.2

If Range("B" & i).Value = " EUR" Then Range("C" & i).Value = 11.2
If Range("B" & i).Value = " CHF" Then Range("C" & i).Value = 8.2

.
.
.
.
Next

End Sub


j'ai appliqué celui là aussi, mais en vain :

If Cells(i, 2).Value = " EUR" Then Cells(i, 3).Value = 11.2
If Cells(i, 2).Value = " CHF" Then Cells(i, 3).Value = 8.2

Une idée peut être ? Je vous remercie d'avance.