Remplacer le contenu d'une cellule [Résolu/Fermé]

Bonjour,

Je cherche à réaliser un programme tout simple sur deux colonnes. Celle de gauche est remplie de 1, et celle de droite est remplie aléatoirement de 0 et de 1. Il y a 3 cellules par colonne.
Le but est de lire les valeurs de la colonne remplie et 0 et de 1, et lorsque la valeur lue est 0, alors la valeur ce la cellule de la colonne 1 devient 0 aussi.
Cela donnerait:
1 0
1 1 =====>
1 0

0 0
1 1
0 0

J'ai codé ceci, mais ca ne marche pas, erreur 1004... Je ne comprends pas, pouvez-vous m'aider s'il vous plait?

Dim i As Integer
i = 0
Do Until i = 3
i = i + 1
If ActiveSheet.Range("Bi").Value = 0 Then ActiveSheet.Range("Ai").Value = 0
Loop

Merci et bonnes fêtes!