Griser deux lignes en fonction résultat d'une cellule

Bonjour,

Pouvez-vous m'aider car j'ai ce code ci-dessous qui me permet de griser deux lignes en fonction du choix fait dans la cellule D5. Mais je voudrai que ces deux lignes redevienne sur fond blanc (normal) s'il change d'avis en D5.

D5 = Bénéficiaire ou Resp. d'audit ou Observateur ou Auditeur

Si D5 est sélectionné "Bénéficiaire" on grise les lignes 26 et 23.

Si D5 est sélectionné "Resp. d'audit" ou "Auditeur" ou "Observateur" de suite après ces deux lignes redeviennent sur fond blanc.

Merci.

J'ai le code ci-dessous mais il marche à moitié et je n'arrive pas à le terminer complétement.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$5" And Target.Value = "Bénéficiaire" Then
  Rows(26).Interior.ColorIndex = 15
  Rows(23).Interior.ColorIndex = 15
If Target.Address = "$D$5" And Target.Value = "Auditeur" Then
Rows(26).Interior.ColorIndex = 0
  Rows(23).Interior.ColorIndex = 0
If Target.Address = "$D$5" And Target.Value = "Observateur" Then
Rows(26).Interior.ColorIndex = 0
  Rows(23).Interior.ColorIndex = 0
If Target.Address = "$D$5" And Target.Value = "Resp. d'audit" Then
Rows(26).Interior.ColorIndex = 0
  Rows(23).Interior.ColorIndex = 0
  End If
  End If
  End If
  End If
End Sub

-- 25 Nov 2010, 13:59 --

J'ai trouvé le bon code et qui fonctionne. Le voici.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$5" And Target.Value = "Bénéficiaire" Then
  Rows(26).Interior.ColorIndex = 16
  Rows(23).Interior.ColorIndex = 16
  Else
  If Target.Address = "$D$5" And Target.Value = "Auditeur" Then
  Rows(26).Interior.ColorIndex = 0
  Rows(23).Interior.ColorIndex = 0
   Else
  If Target.Address = "$D$5" And Target.Value = "Observateur" Then
  Rows(26).Interior.ColorIndex = 0
  Rows(23).Interior.ColorIndex = 0
   Else
  If Target.Address = "$D$5" And Target.Value = "Resp. d'audit" Then
  Rows(26).Interior.ColorIndex = 0
  Rows(23).Interior.ColorIndex = 0
  End If
  End If
  End If
End If
End Sub