Problème de macro

Bonjour j'ai une macro qui : dès lors que je rentre une donnée dans mon tableau, l'insertion d'un commentaire apparait, sauf quand je verrouille certaine sauf celle ou je dois rentre une donnée bien sur.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B16:Q19")) Is Nothing Then
If Target = "" Then Target.ClearComments
If Target <> "" Then
    Target.ClearComments
   [color=#FFFF00] Target.AddComment[/color]
    Target.Comment.Text Text:=InputBox("Entrez votre commentaire")
End If
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B16:Q19")) Is Nothing Then
If Target = "" Then Target.ClearComments
If Target <> "" Then
    Target.ClearComments
    Target.AddComment
    Target.Comment.Text Text:=InputBox("Entrez votre commentaire")
End If
End If
End Sub

Voici le code l'erreur est sur "target.addcomment"

Merci

bonjour,

Normalement cette ligne ne produit pas d'erreur,

A+

bonjour, si je la supprime c'est la phrase du dessous qui passe janune

"Target.Comment.Text Text:=InputBox("Entrez votre commentaire")"

oui j'ai dit une bêtise.

Cependant je maintiens que cette ligne ne produit pas d'erreur... (chez moi)

Quel est le message d'erreur ?

le probleme peut etre de la manière de verrouille les cellules

solution trouvé merci quand meme

oui les commentaires n'apprécient pas les feuilles protégées : Il faut nécessairement déprotéger la feuille avant et la reprotéger après.

en faite dans les autorisations il faut mettre "modifier objet" et sa fonctionne