Pour cet exemple, il faut à la base une feuille nommée "Import" ... avec cette procédure, la valeur de la cellule A1 de cette feuille, s'inscrit en commentaire dans la cellule A1 de la feuille active ...
Code à placer dans un module
Option Explicit
Sub Ajout_Commentaire()
'Ti
'http://www.excel.veriti.net
Dim CelS As Range, CelDest As Range, AncienCom As Variant
'on importe le texte de la cellule A1 de la feuille "Import"
Set CelS = Worksheets("Import").Range("A1")
'on insère cette valeur dans la cellule A1 de la feuille active
Set CelDest = ActiveSheet.Range("A1")
'on ajoute le commentaire
With CelDest
On Error Resume Next
.Comment.Delete
.AddComment
.Comment.Shape.TextFrame.AutoSize = True
.Comment.Text CStr(CelS)
End With
'et le tour est joué
End Sub