Sub RecopieCommentaire()
Dim DL%, DC%, Plage, c
Application.ScreenUpdating = False
DL = Range("A65500").End(xlUp).Row
DC = Cells(1, Columns.Count).End(xlToLeft).Column
Set Plage = Range(Cells(1, 1), Cells(DL, DC))
For Each c In Plage
If Not Range(c.Address).Comment Is Nothing Then
Cells(c.Row, c.Column + 1) = c.Comment.Text
End If
Next c
End Sub