Transférer le contenu du commentaire sur une autre colonne

Sub CommentCell()
Dim Cellule As Range
    For Each Cellule In Range("A2:A35")
        If Not Cellule.Comment Is Nothing Then
            Cellule.Offset(0, 1).Value = Cellule.Comment.Text
        End If
    Next Cellule
End Sub

Sub Dodododo()
Dim c As Range
With Sheets("Exemple")
    For Each c In .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
        If Not c.Comment Is Nothing Then c(1, 2) = c.Comment.Text
    Next c
End With
End Sub

Sub Copie()
For Each cel In Sheets("Exemple").Range("A:A").SpecialCells(xlCellTypeComments)
    cel.Offset(0, 1).Value = cel.Comment.Text
Next
End Sub

Sub Copie()
For Each cel In Sheets("Exemple").Range("A:A").SpecialCells(xlCellTypeComments)
    cel.Offset(0, 1).Value = cel.Comment.Text
    cel.ClearComments
Next
End Sub