Bonsoir,
Voici un code exemple, que tu devras adapter à tes besoins, mais qui te donneras les pistes que tu recherches :
Sub Macro1()
' Exemple met un commentaire
On Error Resume Next ' Evite l'erreur dû à AddComment si le commentaire existe déjà
With Cells(2, 2)
.AddComment ' Ajoute d'un commentaire vide
.Comment.Text " Bonjour", 2000 ' Complète l'espace commentaire à partir de la place 2000 s'il existe 2000 caractère sinon juste après ce qui existe
End With
' Exemple recopie commentaire
With Cells(3, 3)
.AddComment
.Comment.Text Cells(2, 2).Comment.Text, 2000
End With
End Sub
Par ailleurs, je ne discuterai pas la ligne de code :
Sheets("Feuil1").Cells(i,j) = Sheets("Feuil2").Cells(k,l)
qui est peut-être bien adaptée à ton projet, mais j'espère que tu sais qu'il existe bien des manières de faire des copies optimisées de cellules ...
Amicalement,
Us.