[COLOR=BLUE]Sub[/COLOR] emmanuelavril()
[COLOR=BLUE]Dim[/COLOR] x [COLOR=BLUE]As Long[/COLOR]
Var = Sheets("GENERAL").Range("F3")
[COLOR=BLUE]For[/COLOR] x = Sheetts("NAVISION").Range("B65536").End(xlUp).Row [COLOR=BLUE]To[/COLOR] 1 [COLOR=BLUE]Step[/COLOR] -1
[COLOR=BLUE]If[/COLOR] Sheetts("NAVISION").Cells(i, [COLOR=red][B]2[/B][/COLOR]).Value > Var [COLOR=BLUE]Then[/COLOR] Rows(x).Delete
[COLOR=BLUE]Next[/COLOR]
[COLOR=BLUE]End Sub[/COLOR]