Sub test()
Set f = Sheets("feuil1") 'nom de la feuille à adapter
For Each c In f.Comments
c.Text Text:=CStr(c.Parent.Value)
Next c
End Sub
Sub test()
Dim f As Worksheet, c As Comment
Set f = Sheets("feuil1") 'nom de la feuille à adapter
For Each c In f.Comments
c.Text Text:=CStr(Cells(c.Parent.Row, 4).Value)
Next c
End Sub
Sub test()
Dim f As Worksheet, c As Comment
Set f = Sheets("feuil1") 'nom de la feuille à adapter
For Each c In f.Comments
c.Text Text:=CStr(Cells(c.Parent.Row, c.Parent.Column +7).Value)
Next c
End Sub
Sub test()
Dim f As Worksheet, c As Comment
Set f = Sheets("feuil1") 'nom de la feuille à adapter
For Each c In f.Comments
c.Text Text:=CStr(Cells(c.Parent.Row, c.Parent.Column + 7).Value)
Next c
End Sub