Macro - Excel Office 2007

Bonjour,

J'aimerais réaliser une simple macro qui me permettrait de supprimer les lignes contenant des Zéros pour différentes colonnes.

Pour cela, j'ai écris les lignes de code suivantes:

Sub supprime_ligne_0()
While ActiveCell <> "Fin"
If (ActiveCell.Offset(0, -7).Range("A1").Select = 0 Or ActiveCell.Offset(0, -6).Range("A1").Select) Then
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.Offset(0, 7).Range("A1").Select
Else
ActiveCell.Offset(1, 0).Range("A1").Select
End If
Wend
End Sub


Le code marche bien pour une colonne contenant des Zéros, mais lorsque j'ajoute "Or ActiveCell.Offset(0, -6).Range("A1").Select" dans la fonction "If" pour 2 colonnes à la fois, j'obtient l'erreur suivante:

"Erreur d'exécution '1004': erreur définie par l'application ou par l'objet".

C'est ma première macro, je débute donc...

Merci à celui ou celle qui pourra m'aider.

Nicolas