[COLOR="DarkSlateGray"][B]Sub toto()
Dim tPlg, i As Long
tPlg = Range("[COLOR="Sienna"]K1:K[/COLOR]" & Range("[COLOR="Sienna"]K[/COLOR]" & Rows.Count).End(xlUp).Row)
With Application: .ScreenUpdating = False: .Calculation = xlCalculationManual: End With
On Error GoTo E
For i = UBound(tPlg, 1) To 2 Step -1
If tPlg(i, 1) = "oui" Then Rows(i).EntireRow.Delete
Next i
E: With Application: .Calculation = xlCalculationAutomatic: .ScreenUpdating = True: End With
End Sub[/B][/COLOR]