Déclaration de variable vba

Bonjour,

Je débute en vba et m'excuse pas avance de ma question :
Je cherche simplement à écrire de la cellus A2 à G2 le chiffre 3, mais en lui déclarant une variable (car je devrait faire appel à ces cellules plusieurs fois, c'est pour un gain de temps de calcul).

Voici mon code :
Sub test()
Dim i, d As Integer
For i = 1 To 7
d = Cells(2, i).Value
d = 3
Next i
End Sub

ce code ne fonctionne pas correctement, c'est à dire qu'il n'emet pas de message d'erreur mais qu'il ne m'inscrit rien dans les cellules A2 à G2, en revanche si je ne lui déclare pas la variable d, cela fonctionne c'est à dire :
Sub test()
Dim i, d As Integer
For i = 1 To 7
d = Cells(2, i).Value
Cells(2, i).Value = 3
Next i
End Sub

Je n'arrive pas à comprendre ce qui l'empêche de prendre en compte ma variable d.

Merci par avance de vos réponses.
Sandy