Supprimer lignes selon condition

Bonjour à toutes et à tous,

J'ai enregistré une petite macro, mais ça n'est pas tout a fais ce que je recherche à cause du Rows("150:203").Select, qui peu être variable. C'est pour supprimer toutes les lignes vides en dessous de la colonne B. Je sais pas si j'ai été clair

Range("B203").Select
    Selection.End(xlUp).Select
    Rows("150:203").Select
    Selection.ClearContents

Merci de vôtre aide

Bonjour

Tu devrais joindre ton fichier car on ne voit pas très bien ce que tu veux effacer.

Bye !

Voici le fichier pour mieux comprendre, a expliquer c'est peu être compliquer mais en faite c'est simple.

Par exemple je veux effacer toutes les lignes d'un certain niveau (ligne 200 par exemple) jusqu'a qu'il termine la ou la colonne B n'est pas vide.

Essaie ce code :

Private Sub CommandButton1_Click()
    Dim preLn&, derLn&
    preLn = Range("B" & Rows.Count).End(xlUp)(2).Row
    derLn = Application.Max(preLn, Range("A" & Rows.Count).End(xlUp).Row - 2)
    Rows(preLn & ":" & derLn).Delete shift:=xlUp
 End Sub

Résultat ?

Bye !

ça va me servir ça merci

Nickel merci ça fonctionne j'ai juste supprimé le -2 de ça

derLn = Application.Max(preLn, Range("A" & Rows.Count).End(xlUp).Row - 2)

sinon ça effaçais pas juste à la limite du dernier mot de la colonne B