Commentaire dans cellules grace à VBA

Sub Commentaires() 
' pour chaque cellule de la sélection, 
' traduit à l'aide des abréviations de 'Abrev' 
' et met la traduction en commentaire. 
' Pas d'ajout ou modification de commentaire si aucune traduction n'a eu lieu. 
' Retour à la ligne forcé sur "et", "ou" 
    Dim shAbrev As Worksheet, c As Range, ch As Variant 
    Dim i As Long, j As Long, comment As String, ok As Boolean 
    Set shAbrev = Worksheets("Abrev") 
    derlig = shAbrev.[A65536].End(xlUp).Row 
    For Each c In Selection 
        comment = "" 
        ok = False 
        ' traduire 
        ch = Split(c.Value, " ") 
        For i = 0 To UBound(ch) 
            If Len(ch(i)) > 1 Then 
                j = 0 
                On Error Resume Next 
                j = shAbrev.Range("A1:A600").Find(What:=ch(i), LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByColumns).Row 
                On Error GoTo 0 
                If j <> 0 Then 
                    ch(i) = shAbrev.Range("B" & Application.WorksheetFunction.Match(ch(i), shAbrev.Range("A1:A600"), 0)) 
                    ok = True 
                End If 
            End If 
            If (ch(i) = "et" Or ch(i) = "ou") And comment <> "" Then comment = comment & vbCrLf 
            comment = comment & " " & ch(i) 
        Next i 
        ' ajouter commentaire 
        If ok Then 
            On Error Resume Next 
            c.AddComment 
            On Error GoTo 0 
            c.comment.Visible = False 
            c.comment.Text Text:=comment 
            c.comment.Shape.Width = 300 'largeur commentaire 
            c.comment.Shape.Height = 90 'hauteur commentaire 
        End If 
    Next c 
End Sub