Tester une serie de cellules d'une même colon

Bonjour,

Je veux tester une serie de cellules d'une même colonne mais mon test ne fonctionne pas.
Il ne veut pas cacher la ligne quand la cellule B... est égale à x
Où est mon erreur?

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 30
If Range("B" & i).Value = "x" Then
Rows(i, i).Select
Selection.EntireRow.Hidden = True
End If
Next i

End Sub