Boucle sur des lettres

Bonjour,

J'essaie en vain de faire une boucle sur des lettres en vba ,j'ai fait la routine suivante:
Sub lettre()

Dim i As Variant
For i = Asc("A") To Asc("Z")

Cells(i, 3) = Chr(i)
Next
End Sub


les valeurs sont correctes si on regarde les valeurs prises mais aucun caractère ne s'affiche dans ma feuille excel
Quel peut-être le problème