formule if

Bonjour à tous,
j'ai une petite question à vous posez.
voilà, j'essaye d'ecrire le code ki me permet :" si la cellule (i,1) n'est pas vide, et que la cellule (i,2) est vide, mettre dans cells(i,2) un A, sinon rien faire
voici mon code mais il ne marche pas (je suis novice)

Sub check()

 
For i = 2 To 3000

If Not IsEmpty(Cells(i, 1)) Then

If IsEmpty(Cells(i, 2)) Then

Cells(i, 2) = "a"

End If

End If

Next i

 
End Sub

merci