Code VBA erreur

Bonjour !
J'ai un besoin urgent, je dois saisir plus de 200 valeurs qui existent déjà dans une feuille, le problème c'est que dans la feuille de destination j'ai un pas entre les ligne (pas = 14)
C'est donc la première fois que j'écris un code sur VBA, mais j'obtiens toujours l'erreur 1004.
SVP aider moi à détecter l'erreur :)

Voilà le code :
Sub macrocode()

Dim I As Long

For I = 1 To 30

Sheets("source").Cells(I, B).Value = Sheets("destination").Cells(I + 493 + (I - 1) * 14, C).Value

Next

End Sub