[COLOR="DarkSlateGray"][B]Sub supp_lig()
Dim s As Worksheet, i As Long
Application.ScreenUpdating = False
For Each s In ActiveWorkbook.Sheets
For i = s.UsedRange.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If s.Range("D" & i) <> 8 Then Range("D" & i).EntireRow.Delete
Next i
Next s
Application.ScreenUpdating = True
End Sub[/B][/COLOR]