ce qui donen et qui fonctionen a la perfection un tout grand merc a toi pur toute ton aide!!!!
Option Private Module
Sub CommentaireDivx()
Dim Texte As String, Ligne As String
Dim txtfinal As String
Dim I As Integer, J As Integer
Dim DObj As New DataObject
DObj.GetFromClipboard
Texte = DObj.GetText(1)
Do
I = J + 1
J = InStr(I, Texte, vbCr)
Ligne = Mid$(Texte, I, IIf(J, J - I, Len(Texte) - I + 1))
txtfinal = txtfinal + Ligne
Loop While J
Set cmt = ActiveCell.AddComment
With cmt.Shape
.Height = 226.5
.Width = 156
cmt.Text Text:=txtfinal
End With
End Sub
voila la fonction finale au cas ou cela servirais a kelk'un
merci bcp bcp bcp !!!