Bonjour,
La macro suivante copie les lignes trouvées vers "Feuil2" (à adapter)
Sub Test()
For i = 1 To Range("B65536" ).End(xlUp).Row
If Cells(i, 2).Value <= Cells(i, 1).Value Then
Rows(i).Copy Sheets("Feuil2" ).Cells(j + 1, 1)
j = j + 1
End If
Next
Application.CutCopyMode = False
End Sub
Nota :
Il est supposé que les colonnes A et B ont la même longueur.
Une cellule vide est réputée avoir la valeur 0
Ok ?