Si vos données sont triées, vous pouvez utiliser une formule comme
If(Dif(:B) == 1, 1 , :B == 1, 0 , -1 );
pour marquer les lignes. Choisissez ensuite les lignes avec les valeurs 0 et supprimez-les