Suppression de ligne sur excel

Bonjour,
Je suis en train de créer un programme sur excel en visual basic et je veux qu'il supprime toutes les lignes dont la colonne P contient un 1.
Je vous donne le code que j'ai mis qui ne marche pas... :

For i = 7 To Nb_Lignes

If Range("P7").Offset(i - 1) = 1 Then Rows(i).EntireRow.Delete Shift:=xlUp

Next i


Le résultat n'efface pas toutes les lignes justes quelques une je ne sais pas pourquoi.

Merci d'avance de votre aide.

Merci mais ca ne marche toujours pas, il en efface qu'il ne devrait pas effacer, mais il en efface bcp plus deja!
Je vais t'envoyer le code complet peut etre tu verras une erreur :

Sub Macro_suppression_lignes()
'
' Macro_suppression_lignes Macro
' Macro enregistrée le 02/07/2009 par dcastan

Dim i As Integer
Dim Nb_Lignes As Integer

Nb_Lignes = Range("B65536").End(xlUp).Row - 6


For i = Nb_Lignes To 7 Step -1

If Range("P7").Offset(i - 1) = 1 Then Rows(i).EntireRow.Delete Shift:=xlUp

Next i

End Sub



Voila! Et je ne comprends vraiment pas pourquoi il supprime des lignes qui ne sont pas avec des 1...

Merci d'avance !