Mettre commentaires vba avec cells

Bonjour,
J'ai un code qui ne fonctionne pas, mais j'ignore pourquoi.
Pourtant, en fouillant les forums, c'est comme cela qu'ils disent de faire mais ils ne parlent jamais avec Cells, uniquement avec Range.

Private Sub Worksheet_Open()
For i = 1 To 26
For j = 1 To 30
Sheets("liste_codee").Cells(i, j).Value = Left(Sheets("Savoirs(liste)").Cells(i, j), 4)
Sheets("liste_codee").Cells(i, j).Select
Sheets("liste_codee").Cells(i, j).AddComment
Sheets("liste_codee").Cells(i, j).Comment.Text "Essai"
Next j
Next i
End Sub

Ici, j'ai écrit "essai" car je voulais voir ce qui posait problème.
En vrai, je voudrais que dans la cellule Cells(i,j) de la page liste_codee, il y ait en commentaire la valeur de la cellule Cells(i,j) de la page Savoirs(liste).

Voilà, si quelqu'un a la gentillesse de m'aider à comprendre mon erreur et à la corriger, je le remercie d'avance ainsi que tous ceux qui essaieront.