Récupérer un commentaire sous condition

Bonjour à tous,

J'ai un petit problème avec mon code VBA que je n'arrive pas à résoudre,

En effet, je dois récupérer l'ensemble des commentaires de la feuille 1 pour les transférer sur la feuille 2 mais si et seulement si la cellule où il y a le commentaire contient comme texte "NC" !

Et c'est la que je bloque, j'arrive à récupérer l'ensemble des commentaires mais pas seulement ceux qui contiennent "NC" dans leur cellule.

Pouvez-vous m'aider ?

Je vous joins mon code :

 Sub Commentaire()

For Each c In Worksheets("Enregistrements").Range("E7:BQ5828")

If Not c.Comment Is Nothing Then  'Test s'il y a un commentaire dans la cellule.

Worksheets("NON-CONFORME").Cells(i + 3, 2) = c.Comment.Text
i = i + 1

End If

Next c
Worksheets("NON-CONFORME").Cells.WrapText = False

Application.Goto Reference:="Commentaire"

End Sub

Merci beaucoup à tous pour votre aide !

Bonne journée

bonjour,

à tester

Sub Commentaire()

For Each c In Worksheets("Enregistrements").Range("E7:BQ5828")

If Not c.Comment Is Nothing Then  'Test s'il y a un commentaire dans la cellule.
If InStr(c.Comment.Text, "NC") <> 0 Then

Worksheets("NON-CONFORME").Cells(i + 3, 2) = c.Comment.Text
i = i + 1
End If
End If

Next c
Worksheets("NON-CONFORME").Cells.WrapText = False

Application.Goto Reference:="Commentaire"

End Sub

Merci beaucoup !

Ça fonctionne parfaitement !! =D