rectification d'un code qui sert a effacer

salut a tous

j'ai ce code :

Option Explicit

Private Sub CommandButton1_Click()
Dim Cell As Range

For Each Cell In Range("B7:B200")
If Cell.Value = "" Then
Cell.EntireRow.Delete
End If
Next Cell

End Sub


qui permet d'effacer les ligne dont la colonne est vide en b7 jusqu a 200 mais (et c'est que j'ai l'air con) c'est pour effacer par exemple des caracteres comme "AAA"

cela devrait etre :
Option Explicit

Private Sub CommandButton1_Click()
Dim Cell As Range

For Each Cell In Range("B7:B200")
If Cell.Value = "AAA" Then
Cell.EntireRow.Delete
End If
Next Cell

End Sub




mais ca marche pas

merci d'avance