Smirnoff

Voici uen formule qui marche

Option Private Module

Sub CommentaireDivx()

Dim Texte As String, Ligne As String
Dim I As Integer, J As Integer
Dim DObj As New DataObject
DObj.GetFromClipboard
Texte = DObj.GetText(1)

Set cmt = ActiveCell.AddComment
With cmt.Shape
.Height = 226.5
.Width = 156
cmt.Text Text:=Texte

End With
End Sub

sauf qu'il ajoute des "carre" a chaque fin de ligne, pouvez vous m'aider a les retirer

re merci