Macro EXCEL à compléter...

Bonjour,
Voici le début d'une macro :

Sub TOT()
Dim i As Integer
Dim y As Integer

y = 1
For i = 1 To 100
If Range("A" & i).FormulaR1C1 = 2 And Range("B" & i).FormulaR1C1 = 10 Then 't deux conditions pour remplir la cellule D 'si les deux conditions sont remplies tu mets le contenue de la cellule C dans la cellule D
Range("D" & y).FormulaR1C1 = Range("C" & i).FormulaR1C1
'Incrémente la cellule de la colonne D
y = y + 1

End If
Next

End Sub

--> Le pb c'est que les colonnes A, B et C se trouvent dans l'onglet 2 et la colonne D se trouve dans l'onglet 1. Comment est ce que je peux traduire cela ? merci