Run-time error '424': Object required [Résolu/Fermé]

Bonjour,

J'essaie de tester une cellule et la changer de couleur si on la modifie (bleu par défaut puis violet après modification). Cette cellule peut contenir ou non un commentaire. Si elle contient un commentaire, je désire le supprimer. Voici mon code :

Sub newMarks(Target, cell)
    Dim value
    ActiveSheet.Unprotect
    value = ThisWorkbook.getValue()
    If Not Intersect(Target, Range("B3", "M9")) Is Nothing Or Not Intersect(Target, Range("K11", "M19")) Is Nothing Then
        cell = Target.Address
        If value = "" Then
            Range(cell).Interior.Color = RGB(51, 153, 255)
        Else
            Range(cell).Interior.Color = RGB(204, 102, 255)
            cell.ClearComments
        End If
    End If
    'ActiveSheet.Protect
End Sub

il y a clairement un problème avec cell.ClearComments, apparement je devais définir une variable ? J'ai tenter de passer par une variable pour tester si la cellule contient un commentaire mais le résultat obtenu n'est pas bon non plus et me crash d'autres erreurs. Merci pour votre aide.