Macro suppression de ligne et condition

Bonjour,

J'ai du mal à réalisr une macro qui pourtant à l'aire simple, mais je ne sais pas par ou commencer. Voila ce que j'essai de faire dans mon tableau excel :

à partir d'une certaine ligne, que j'ai nommé LigneP, je voudrais supprimer toutes les lignes qui sont en dessou jusqu'a ce qu'il rencontre une ligne coloré, donc couleur différente de blanc.

Merci de vos éventuelles réponses

Cdt.

Bonjour

Une idée

Option Explicit

Sub test()
  Dim Lp As Long
  Lp = 20
  While Cells(Lp, 1).Interior.ColorIndex = xlNone
    Rows(Lp).Delete
  Wend
End Sub

Merci beaucoup je vais essayer ça tout de suite...

-- 22 Déc 2010, 15:29 --

Ca marche nikel quand je lance la macro une première fois, mais ça bug quand je la relance...

comment faire?

C'est régler Merci