Ajout commentaire et vba

Bonjour,

J'ai un souci avec le range de l'ajout de commentaire.

Mon code est :
dim resultat as worksheet

set resultat=thisworksbook.worksheets(1)

resultat.cells(1,5).addcomment resultat.cells(1,6)

il me le met en erreur

j'ai essayé :

dim resultat as worksheet

set resultat=thisworksbook.worksheets(1)

range(resultat.cells(1,5)).addcomment resultat.cells(1,6)

ce qui ne foncitonne pas non plus mais cela ne m'étonne pas vraiment................

Vous avez une solution?
STP

merci