Sub Commentaires()
Dim c As Range 'cellule en cours d'examen
Dim p1 As Integer, p2 As Integer 'position des parenthèses ouvrante et fermante dans la chaîne de texte
'permet de savoir si un commentaire existe ou pas (lève une erreur dans ce dernier cas)
On Error Resume Next
'Boucler sur toutes les cellules de la plage
For Each c In Range("H10:AP200") '
'trouver les parenthèses ouvrante et fermante
p1 = InStr(1, c, "("): p2 = InStr(1, c, ")")
'si les deux existent dans la chaîne
If p1 > 0 And p2 > 0 Then
'tenter de changer le text du commentaire
c.Comment.Characters.Text = Mid(c, p1 + 1, p2 - p1)
'si une erreur est levée, alors la cellule n'a pas de commentaire, un ajouter un avec le texte
If Err <> 0 Then c.AddComment Mid(c, p1 + 1, p2 - p1)
'réinitialiser l'erreur
Err.Clear
End If
Next
End Sub