Suppression de lignes

Bonjour,
j'ai trouver un code sur internet (Voir ci dessous), qui supprime toutes les lignes vides dans la colonne B. Mais cela me convient peu. je cherche a supprimer toutes les lignes qui ne possede pas la valeur "1" ou "FF". Quelqu'un peut il m'aider, SVP.
Merci d'avance.

Sub SupprLignesVides()
' désactiver le rafraîchissement de l'écran pour accélérer le traitement
Application.ScreenUpdating = False
' désactiver les alertes pour empêcher l'affichage
' des messages du genre "Voulez-vous etc."
Application.DisplayAlerts = False

' se placer sur la dernière ligne contenant des données
Range("B65536").End(xlUp).Select
Do
If IsEmpty(ActiveCell) Then
ActiveCell.EntireRow.Delete

End If
ActiveCell.Offset(-1, 0).Select
Loop Until ActiveCell.Row = 1

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Configuration: Windows XP Internet Explorer 6.0