Problème pour une macro contenant If... And... Then

Bonjour à tous

Voici mon problème :

J'ai créé un modèle excel comprenant plusieurs feuilles et tableaux à remplir. Ce document type se veut exhaustif et donc, la plupart du temps lorsqu'il est utilisé, beaucoup de cellules sont inutiles.

Afin de rendre le document plus lisible, des macros permettent de cacher des lignes lorsque celles-ci sont inutiles. Les cellules inutiles contiennent un tiret.

Pour certaines d'entre elles, la ligne doit être cachées seulement si deux cellules contiennent un tiret : la cellule de la colonne E et la cellule de la colonne C de la ligne précédente.

Voici donc la partie de la macro concernée :

Range("E14,E16,E18,E20,E22,E24,E26,E28").Select
For Each cell In Selection
If cell.Value = "-" And Range("C" & ActiveCell.Row - 1).Value = "-" Then
cell.EntireRow.Hidden = True
End If
Next

Le problème est que dès qu'une seule cellule de la colonne C contient autre chose qu'un tiret, aucune des lignes ne se masque.

Quelqu'un a-t-il une solution pour moi siouplé ?

Merci beaucoup pour vos réponses

bonjour,

essaie ceci

Range("E14,E16,E18,E20,E22,E24,E26,E28").Select
For Each cell In Selection
If cell.Value = "-" And cell.offset(-1,-2).Value = "-" Then
cell.EntireRow.Hidden = True
End If
Next

ça marche du tonnerre, un grand merci