Anomalie macro

Bonjour,

j'essaye de créer une macro qui sous certaine condition m'indique une valeur dans une autre celulle.
j'ai le message d'erreur "erreur d'execution 1004"
pouvez vous m'aider?

Sub nombre_de_cell()
Dim i As Integer
Dim j As Integer

Dim bourse As String
Dim groupe As String
Dim row As Range
Set MaPlage = Range("C" & i)

marche = "BO BX"
groupe = "pool A"

j = InputBox("Saisir le nombre de ligne: ")
i = 4

Do Until row(i) < j
If Range("C" & i).Value = "BO BX" Then
Range("C" & i).Offset(-1, 0).Select
Range("C" & i).Offset(-1, 0) = "pool A"
End If
i = i + 1
Loop

End Sub

merci