Erreur "1004" boucle "for each"

Bonjour,
je bute sur un code VBA qui me renvoie une erreur d'exécution "1004" sur la ligne N°5 (je ne sais pas si il y en a d'autres).
Le code:

Private Sub activ7xdessouscible_Click()
Application.ScreenUpdating = False
For Each Cell In Range("BA30:CN30")
If Cell.Value = "1" Then
Cell.Offset(1, 1).Value = 1
End If
Next
End Sub

le but de cette boucle est de tester la valeur des cellules ("BA30:CN30"). pour chaque cellule égale à 1, la cellule ce trouvant sur la meme colonne juste dessous (ex: si BA30=1 alors BA 31=1 est forcée à 1


compte tenue de mon niveau, l'aide excel n'a pas suffit. je m'en remet donc à votre savoir pour m'éclairer sur cette erreur.

merci par avance